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Abstract 

The  Air  Force  uses  a  family  of  expendable  launch  vehicles  to  meet  its  spacelift 
needs.  Unfortunately,  this  method  is  not  responsive:  months  of  preparation  are  typically 
required  and  launch  costs  are  high.  Consequently,  the  Air  Force  seeks  a  reusable  military 
launch  vehicle  that  can  be  launched  inexpensively  and  quickly  regenerated  between 
flights.  Air  Force  Research  Laboratory  personnel  desire  a  tool  to  help  evaluate  candidate 
designs  and  perform  tradeoff  studies  necessary  to  acquire  a  launch  vehicle  that  will 
achieve  Air  Force  goals.  The  objective  of  this  research  was  first  to  develop  a  conceptual 
model  of  maintenance  operations  needed  to  regenerate  a  launch  vehicle  between  flights, 
and  then  to  translate  this  conceptual  model  into  a  discrete  event  simulation  tool.  This 
research  was  accomplished  concurrently  with  Stiegehneier,  who  focused  on  vehicle 
prelaunch  operations. 
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DISCRETE  EVENT  SIMULATION  MODEL  OF  THE  GROUND 
MAINTENANCE  OPERATIONS  CYCLE  OF  A  REUSABLE  LAUNCH  VEHICLE 


I.  Introduction 


Background 

The  Space  shuttle  system  of  reusable  launch  vehicles  is  reaching  the  end  of  its 

service  life.  To  sustain  our  efforts  in  space  and  to  encourage  growth  in  the  area,  a 

reusable  space  launch  vehicle  must  be  developed  that  has  a  shorter  down  time  between 

launches.  In  order  to  shorten  the  time  that  a  proposed  system  is  on  the  ground,  a  method 

should  be  devised  that  can  improve  the  ground  maintenance  flow  of  the  system  as  well  as 

the  time  to  integrate  a  payload  and  actually  launch  the  vehicle.  Space  has  become  a 

critical  part  of  the  United  States’  warfighting  capability  and  requires  that  future  space 

systems  become  more  responsive  than  the  current  systems  of  reusable  and  expendable 

launch  vehicles  (Brown  2003).  This  launch  vehicle  would  be  considered  Stage  1  of  a  two 

stage  craft  similar  to  the  Space  Shuttle.  The  tasks  that  the  Air  Force  must  increase  it’s 

capabilities  to  perform  include,  but  are  not  limited  to,  GPS  satellite  launch  to  cover  areas 

with  pinpoint  powerful  GPS  that  is  less  likely  to  be  jammed  by  the  enemy, 

communications  satellites,  and  tactical  response  to  unwanted  aggression  with 

conventional  projectile  placement  on  demand. 

Research  in  the  area  of  space  transportation  systems  has  focused  primarily 
in  the  design  and  manufacture  of  the  vehicle  components:  propulsion, 
materials,  thermal  protection,  and  controls  to  mention  a  few.  In  most 
cases,  the  operation  of  the  vehicle  and  all  phases  of  the  facility/equipment 
component  were  ignored  early  on  in  design  or  had  very  little 
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consideration.  However,  experience  with  previous  systems  has  shown 
NASA  and  industry,  that  operations  has  the  most  significant  effect  in  the 
life  cycle  cost  and  performance  of  a  space  transportation  system. 

(Zapata  and  Ruiz-Torres  2000) 

Problem  Statement 

There  has  been  much  written  about  the  complete  cycle  of  flight  time  and 
regeneration  time  for  the  Space  Shuttle  and  other  launch  vehicles.  However,  there  has 
not  been  much  focus  on  the  maintenance  time  which  is  one  of  the  most  important  aspects 
of  the  operation  cycle  of  a  space  craft.  Before  another  reusable  launch  vehicle  is 
developed,  the  Air  Force  must  address  maintenance  ground  time  to  detennine  how  often 
a  vehicle  can  be  expected  to  launch.  Based  on  that  infonnation,  fleet  size,  manpower, 
and  capabilities  of  launch  facilities  can  be  detennined  during  the  design  phase, 
eliminating  waste  and  unrealistic  expectations.  A  model  of  the  expected  maintenance 
tasks  will  provide  a  dynamic  method  to  determine  where  improvements  can  be  made  and 
where  the  money  should  be  spent  to  have  the  biggest  impact  on  decreasing  the  time 
between  launches. 

Investigative  Questions 

No  models  currently  can  assess  in  detail  the  maintenance  time  required  between 

launches  for  an  Air  Force-developed  booster.  The  closest  data  that  can  be  found  to 

probable  maintenance  activities  is  limited  to  either  the  Space  shuttle  program,  one  of  the 

expendable  launch  vehicle  programs,  or  an  aircraft  program.  From  this  perspective,  there 

are  several  questions  that  will  be  addressed  in  this  paper: 

1 .  What  generic  functions,  or  sequence  of  actions,  describe  Reusable 
Military  Launch  Vehicle  (RMLV)  maintenance? 
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2.  How  do  these  RMLV  maintenance  operation  functions  compare  to 
aircraft,  Expendable  Launch  Vehicle,  and  Intercontinental  Ballistic 
Missile  (ICBM)  maintenance  operation  functions? 

3.  What  are  the  RMLV  design  drivers  that  will  influence  RMLV 
maintenance  operations,  and  how  will  these  drivers  affect  the 
relationships,  number,  type,  and  duration  of  RMLV  maintenance 
operations  activities? 

4.  How  can  these  RMLV  design  drivers  and  maintenance  operation 
activities  be  incorporated  into  a  discrete-event  simulation  model  that 
captures  a  baseline  RMLV  maintenance  operations  sequence? 

Research  Focus 

The  focus  of  my  research  will  be  to  develop  a  method  of  showing  the 
maintenance  flow  of  a  launch  vehicle  that  can  be  integrated  with  post-flight,  pre-flight, 
and  space  operations.  Keeping  a  focus  on  compatibility  will  give  the  user  a  valuable  tool 
in  assessing  mission  capabilities  in  regards  to  operations  tempo.  This  will  allow  for  the 
planning  of  fleet  size,  manpower  requirements,  and,  to  a  lesser  extent,  facility 
requirements. 


Methodology 

This  research  will  assess  the  current  maintenance  process  in  the  Space  shuttle 
system  as  well  as  that  of  aircraft  maintenance  organizations.  After  examining  several 
maintenance  flows,  this  research  will  then  will  detennine  which  actions  most  likely 
represent  the  tempo,  size,  and  complexity  of  the  launch  vehicle  under  consideration.  This 
will  enable  a  model  to  be  constructed  that  will  give  a  good  measure  of  the  time  that 
should  be  expected  for  completion  of  the  maintenance  cycle  during  mission  operations. 

A  Delphi  panel  will  be  constructed  utilizing  expertise  from  a  range  of  relevant  fields  that 
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will  ensure  that  the  model  captures  the  best  maintenance  flow  representing  a  reusable 
launch  vehicle  maintenance  cycle. 

The  model  will  be  exercised  using  process  times  from  experience,  estimated  times 
from  experts  in  the  Delphi  panel,  and  reasonable  estimates  where  unknown  processes 
leave  gaps  in  infonnation  available.  A  selection  of  modules  will  be  randomly  selected, 
and  will  be  set  to  extreme  values  both  high  and  low  to  ensure  the  model  responds 
reasonably  to  a  change  in  input.  Also,  the  model  will  be  exercised  by  several  maintainers 
to  ensure  that  it  produces  a  reasonable  output  based  on  their  similar  experiences  in 
maintenance  and  that  it  works  in  a  predictable  manner. 

Assumptions/Limitations 

The  biggest  limitation  faced  is  that  of  information.  Little  data  exists  on  the 
maintenance  cycle  of  existing  systems.  Since  the  launch  vehicle  shares  some 
commonality  with  the  Space  shuttle,  but  is  being  designed  to  be  much  simpler,  the 
information  available  on  Space  shuttle  maintenance  operations  will  be  of  limited  use. 
However,  there  is  a  lot  of  information  about  the  Space  Shuttle  and  the  maintenance 
problems  that  go  with  it.  The  Air  Force  is  attempting  to  develop  a  launch  vehicle  that 
must  be  simpler  to  maintain. 

As  the  final  design  of  the  launch  vehicle  remains  to  be  completed,  I  will  use 
several  assumptions  for  the  model  that  I  build.  One  assumption  is  that  the  launch  vehicle 
will  have  vertical  takeoff  and  horizontal  landing  capability.  Since  the  landing  is  the  most 
important  aspect  of  the  process  in  regard  to  maintenance,  this  assumption  is  important.  In 
comparing  aircraft  maintenance  to  the  launch  vehicle  maintenance,  I  will  assume  that  the 
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same  type  of  maintenance  that  can  be  performed  on  an  aircraft  can  also  be  performed  on 
the  launch  vehicle  in  a  horizontal  state.  That  is,  the  launch  vehicle  does  not  have  to  be 
rotated  to  a  vertical  position  to  perform  the  same  maintenance  that  would  be  expected  to 
be  perfonned  on  an  aircraft. 

When  the  launch  vehicle  arrives  at  the  maintenance  facility,  I  am  assuming  that  it 
will  be  rolling  on  its  own  gear,  towed  by  a  wheeled  vehicle.  The  safety  pins  are  installed 
prior  to  arrival  as  part  of  the  post-flight  cycle.  Also,  the  tanks  and  motors  will  be  dried 
prior  to  entering  the  maintenance  cycle.  The  vehicle  will  have  cooled  to  a  temperature 
such  that  maintainers  will  be  able  to  work  on  it.  Maintenance  ends  when  the  launch 
vehicle  is  ready  for  prelaunch  activities.  The  payload  and  all  integration  of  that  payload 
will  be  handled  after  the  maintenance  cycle  has  been  completed.  That  is  to  say  that 
maintenance  does  not  include  mating  a  payload  to  the  craft  or  fueling  and  launching  it. 
The  vehicle  will  be  ready  for  integration  or  storage  upon  completion  of  maintenance. 

Another  assumption  that  I  make  is  that  the  Air  Force  will  treat  this  vehicle  as  they 
treat  regular  aircraft.  That  is,  the  maintenance  practices  seen  on  the  flightline  will  be 
very  similar  to  the  maintenance  practices  utilized  on  the  launch  vehicle. 

Implications 

A  military  vehicle,  once  proven,  becomes  a  vital  part  of  the  Air  Force  inventory. 
To  have  a  space  vehicle  that  has  an  unpredictable  maintenance  cycle  is  unacceptable. 
“The  use  of  discrete  event  simulation  to  model  the  Space  Shuttle  began  as  early  as  1970 
before  the  shuttle  was  approved  for  development.”(Schlagheck  and  Byers  1971).  That 
initial  work  suffered  from  a  lack  of  an  established  baseline  for  what  the  shuttle 
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architecture  would  actually  be  (Cates,  Mollaghasemi  et  al.  2002).  The  current  Space 
shuttle  has  too  much  variability  in  the  time  it  takes  to  prepare  for  launch.  Models  showed 
after  testing  of  the  Space  Shuttle  that  it  would  have  a  much  longer  maintenance  cycle 
than  initially  thought  (McCleskey  2005).  This  was  due  to  a  much  higher  maintenance 
time  than  was  anticipated.  In  addition,  it  has  far  too  much  down  time  to  be  relied  on  by 
the  military.  Understanding  the  maintenance  cycle  of  a  launch  vehicle  is  vital  in 
understanding  the  possible  contributions  such  a  craft  can  make  in  any  capacity.  This 
maintenance  cycle,  once  fully  understood,  will  pinpoint  areas  for  further  study  and 
improved  efficiencies. 
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II.  Literature  Review 


Chapter  Overview 

The  purpose  of  this  chapter  is  to  provide  some  background  information  on  the 
literature  that  is  available  and  relevant  to  the  topic  of  this  thesis.  This  literature  review 
will  touch  on  several  systems  that  should  give  some  insight  to  the  maintenance  practices 
of  various  systems.  The  Space  shuttle  maintenance  will  be  evaluated  for  comparisons  to 
the  expected  maintenance  flow  of  a  launch  vehicle.  Large-aircraft  maintenance  practices 
are  also  looked  into.  Existing  models  of  space  launch  vehicles  are  explored  for 
relevance. 

Introduction  to  Maintenance 

Since  the  inception  of  air  travel,  maintainability  has  been  increasingly  important 
as  aircraft  have  become  more  expensive.  The  Wright  brothers  performed  their  own 
repairs  and  were  not  concerned  with  high  sortie  rates.  If  the  pilot  wasn’t  the  mechanic, 
he  had  knowledge  of  the  entire  aircraft  and  was  able  to  make  repairs  as  required.  The 
Wright  brothers  designed,  flew,  regenerated,  and  repaired  their  aircraft.  Maintaining  the 
Space  Shuttle  is  too  complicated  for  one  person  to  perform  alone.  Further,  the  Space 
Shuttle  was  designed  to  be  as  safe  as  technology  could  make  it.  This  necessitated 
compromises  in  the  maintainability  and  serviceability  of  the  system.  During  the  height  of 
Shuttle  flights,  it  still  took  several  months  for  maintenance  between  flights.  The 
overlooked  maintainability  of  the  Shuttle  during  the  design  phase  has  made  the  Shuttle 
too  expensive  and  too  time  intensive  for  it  to  meet  Air  Force  space  launch  needs. 
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A  new  system  is  in  order.  The  system  should  be  dynamic  and  responsive.  In 
order  to  be  responsive  and  able  to  support  fast  paced  operations,  changes  must  be  made. 
During  the  design  phase  of  the  next  launch  vehicle,  the  maintenance  cycle  must  be 
defined  and  carefully  reviewed  to  limit  the  time  and  manpower  requirements  during  this 
time  of  increased  operation  tempo  and  ever  decreasing  pool  of  available  manpower.  In 
order  to  understand  what  constitutes  the  maintenance  cycle,  we  must  know  all  the 
processes  that  go  into  launch  vehicle  operations.  The  preflight  operations  cycle  includes 
mating  of  the  payload,  final  testing  of  connections,  fueling,  and  launch  operations.  The 
flight  operations  cycle  includes  all  actions  that  occur  after  preflight  and  end  with  landing 
operations.  That  is,  everything  where  the  launch  vehicle  is  above  the  earth.  The  post 
flight  operations  cycle  includes  operations  such  as  placing  the  craft  in  a  safe-for- 
maintenance  condition.  Safety  pins,  lanyards,  grounding  cords,  and  de-fueling  operations 
are  contained  in  this  portion. 

What  is  left  over  from  the  other  operations  listed  is  the  maintenance  cycle.  This 
cycle  will  include  all  scheduled  maintenance  in  the  form  of  inspections  and  periodic 
replacement  and  checking  of  various  components  and  parts.  The  scheduled  maintenance 
will  also  include  replacing  consumable  items  with  the  exception  of  fuel.  The 
maintenance  cycle  also  includes  unscheduled  maintenance  which  has  the  largest  level  of 
variability.  The  unscheduled  maintenance  includes  repairing  damage  from  flight, 
replacing  damaged  components,  and  repairing  the  Thermal  Protective  System  (TPS)  as 
shown  in  Figure  1  for  the  Space  Shuttle. 
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Figure  1  Thermal  Protection  Repair  Activity  around  Orbiter  Elevon  Aero  surfaces  McCleskey,  C. 

M.  (2005) 


Shuttle  Maintenance  Practices 

Figure  2  depicts  the  originally  planned  vision  for  the  Space  Shuttle.  It  was 
evident  when  the  Space  Shuttle  program  was  set  to  double  its  flight  requirements  that  a 
study  would  be  required  to  find  out  what  resources  would  be  strained.  At  the  time,  the 
external  fuel  tanks  could  be  manufactured  at  the  rate  of  7  per  year  (Cates,  Mollaghasemi 
et  al.  2002). 


In  1999,  at  a  time  when  NASA  was  considering  plans  to  increase  the  flight 
rate  from  7  flights  per  year  to  as  many  as  1 5  flights  per  year,  the  Kennedy 
Space  Center  began  discussions  with  the  University  of  Central  Florida  to 
develop  a  simulation  model  of  Space  Shuttle  processing.  (Cates, 
Mollaghasemi  et  al.  2002) 
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The  Space  Shuttle’s  flight  requirements  changed  a  lot  from  initial  speculation 
where  it  was  believed  that  the  Shuttle  could  be  regenerated  in  less  than  a  week.  The 
reality  is  that  .  .the  Space  Shuttle  has  demonstrated  less  than  20  percent  of  this 
capability,  or  an  80-percent  shortfall  in  payload  delivery  performance. ’’(McCleskey 
2005) 

Upon  landing,  the  Orbiter  has  safety  gear  installed  and  the  vehicle  is  evaluated.  If 
this  landing  ended  the  eighth  flight,  the  orbiter  is  prepared  for  transport  to  Palmdale,  CA. 
This  was  to  perform  depot  type  of  chronologically  based  maintenance  that  the  facilities  in 
Florida  could  not  handle  (McCleskey  2005).  Now  that  the  shuttle  is  near  the  end  of  its 
life-cycle,  it  is  not  cost  effective  to  build  new  maintenance  facilities  at  Kennedy  Space 
Center  to  eliminate  the  need  for  ferrying  the  shuttle  to  Palmdale  (McCleskey  2005). 

After  being  serviced  at  Palmdale,  the  shuttle  has  to  be  ferried  back  to  Kennedy  Space 
Center  (McCleskey  2005). 
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Figure  2  Original  Concept  of  Shuttle  Operations  (Ca.  1976)  McCleskey,  C.  M.  (2005) 


The  Orbiter  is  then  parked  until  mission  requirements  necessitate  that 
maintenance  be  started.  The  Orbiter  is  then  taken  to  the  maintenance  facility  where  it  is 
placed  on  jacks  to  facilitate  access  to  the  lower  surfaces.  Maintenance  stands  are  placed 
in  key  areas  and  the  maintenance  platforms  built  into  the  facility  are  moved  into  place. 
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At  this  point,  an  assessment  is  made  on  the  TPS,  tile  by  tile.  This  information  drives  the 
need  to  construct,  individually,  replacement  tiles  from  stock  that  is  kept  on  hand.  These 
tiles  are  fonned  in-house.  As  the  tiles  are  being  worked  on,  other  maintenance  is  going 
on  around  the  same  area.  The  gear  is  looked  at,  the  tires  are  checked,  or  replaced  as  in 
the  case  of  the  rear  landing  gear  tires  which  are  replaced  after  every  landing.  The  engine 
portion  of  maintenance  requires  removal  of  the  engine  for  several  reasons,  according  to 
(Rooney  and  Hartong  2004): 

The  components  that  cause  engine  removal  are: 

1 .  Nozzle 

2.  Pre-bumers 

3.  Hot  Gas  Manifold 

4.  Main  Injection 

5.  Main  Combustion  Chamber 

6.  All  pumps 

7.  Heat  Exchanger 

8.  Other  causes 


Any  TPS  surface  that  covers  an  access  panel  must  be  replaced  if  the  panel  is 
opened.  During  this  same  time,  all  the  fluid  subsystems  have  to  be  checked  and  serviced. 
The  payload  area  is  fitted  with  adapters  to  mate  the  next  payload  to  the  orbiter.  This 
takes  place  over  several  days.  There  are  weight  plates  that  must  be  installed  to  ensure 
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proper  balance  in  the  bay  (McCleskey  2005).  The  required  adapters  and  configurations 
are  cumbersome. 


Eventually,  through  improved  software  and  improved  maintenance  practices, 
there  could  be  a  great  reduction  in  the  costs  to  analyze  performance  data  and  identify 
maintenance  needs  that  would  enable  the  system  to  generate  maintenance  requests  while 
still  in  flight.  That  way,  various  maintenance  activities  could  be  staged  to  ensure  rapid 
employment  upon  landing. 

The  recent  NASA  technical  paper  on  Space  Shuttle  operations  really  showed 
where  maintenance  time  was  being  spent: 


The  highest  concentration  of  Orbiter  turnaround  work  was  found  in  the 
Unplanned  Troubleshooting  and  Repair  category  with  66,018  task-hours  accumulated  for 
the  eight  flows  examined.  In  addition  to  the  30-percent  contribution  of  thermal 
protection  tile  work  on  the  vehicle,  troubleshooting  and  replacement  of  system 
components,  or  line  replaceable  units  (LRUs),  also  contributed  quite  heavily  (22  percent). 
(McCleskey  2005) 


Aircraft  Maintenance  Cycle 

When  a  military  aircraft  lands,  different  things  happen  depending  on  the  aircraft 
type.  I  have  seen  many  different  sequences  of  maintenance  operations  in  my  nine  years 
of  experience  in  aircraft  maintenance.  For  F-15s  and  A- 10s,  the  aircraft  is  met  at  the  end 
of  the  runway  where  all  the  ordnance  systems  are  pinned  and  the  landing  gear  is  checked 
and  pinned.  At  that  point,  the  aircraft  is  taxied  to  the  flight  line  where  it  sits  while 
maintenance  is  performed.  The  maintenance  on  these  aircraft  can  be  very  wide-ranging. 
However,  the  aircraft  is  often  merely  prepared  for  the  next  mission.  This  usually  includes 
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fueling,  cleaning,  and  checking  the  external  surface  for  damage.  The  avionics  are  not 
checked,  nor  are  the  flight  controls.  Also,  the  surface  rarely  needs  maintenance.  The 
aircraft  forms  are  checked  for  needed  maintenance  activities  such  as  aircrew  reported 
problems.  The  F-22  uses  a  system  where  an  aircraft  in  flight  can  notify  personnel  on  the 
ground  of  problems  so  that  the  appropriate  maintenance  processes  can  be  activated  before 
the  aircraft  lands. 

The  bigger  aircraft  differ  in  several  areas.  They  are  not  met  at  the  end  of  the 
runway  unless  they  have  ordnance  discrepancies.  This  is  usually  caused  by  aircrew  error 
and  is  taken  care  of  by  weapons  personnel  who  visually  check  the  aircraft  bay  and  pin  the 
weapons  to  prevent  inadvertent  dropping.  The  aircraft  taxies  to  the  flight  line  where  the 
maintenance  is  performed.  The  maintenance  is  quite  a  bit  slower  on  these  large  frame 
aircraft  as  the  stands  and  equipment  used  to  perform  maintenance  are  much  heavier.  The 
B-52  typically  flies  long  missions  with  plenty  of  associated  downtime  to  perform 
maintenance.  Thus,  maintenance  can  be  scheduled  to  effectively  use  very  few  people. 
The  isochronal  inspections  can  take  up  to  a  month  to  complete.  The  flight  line  type  of 
inspections  can  usually  be  completed  during  a  10  hour  shift. 

The  B-2  program  adds  to  the  mix  due  to  its  unique  surface  handling  requirements. 
Changing  a  landing  gear  tire  can  take  from  two  to  four  hours.  Changing  Line 
Replaceable  Units  (LRU)  can  take  several  hours  because  an  engine  run  is  required  to 
check  out  the  avionics  system  once  the  swap  is  done.  It  then  takes  up  to  30  hours  to 
repair  the  surface  that  was  damaged  during  panel  access. 


14 


Engine  changes  on  the  B-2  also  have  some  time  intensive  surface  procedures.  A 
block  sealant,  used  to  restore  the  firewall,  has  a  24  hour  cure  check.  Overall,  an  engine 
change  takes  about  four  days  to  accomplish  (Lee  and  Schmierer  1994). 

The  big  maintenance  task  with  the  B-2  involves  the  special  surface  material.  This 
material  covers  the  aircraft  completely  enough  that  it  must  be  damaged  to  access  panels 
during  maintenance.  Further,  normal  flight  damages  parts  of  the  surface  routinely. 
Overall,  about  half  of  maintenance  time  is  spent  inspecting,  repairing,  and  renewing  this 
surface  material  (Lee  and  Schmierer  1994). 

Differences  in  Aircraft  and  expected  launch  vehicle  Maintenance  Operations 

Aircraft  and  the  new  launch  vehicle  have  a  lot  in  common  in  that  they  both  move 
through  the  same  atmospheric  conditions.  Of  course,  there  are  quite  a  few  differences  as 
well.  The  effect  of  maintenance  differences  is  what  concerns  the  direction  of  this 
research. 

The  (smaller)  aircraft  do  not  require  much  in  the  way  of  maintenance  before  the 
next  flight  and  are  typically  placed  into  flight  with  only  cursory  inspections,  fueling,  and 
mission  data  input.  Bombers,  on  the  other  hand,  require  more  interaction  by  maintenance 
personnel.  The  larger  bomber  aircraft  equipment  are  more  similar  to  what  is  expected  in 
a  launch  vehicle  application.  One  difference  is  that  the  launch  vehicle  will  not  be  fueled 
as  part  of  the  maintenance  cycle.  It  will  instead  be  fueled  prior  to  flight  during  the 
prelaunch  cycle  (Stiegehneier  2006).  Since  the  landings  will  probably  be  much  faster 
with  the  launch  vehicle  and  use  fewer,  lighter  tires,  tire  changes  will  become  a  larger 
portion  of  the  maintenance  footprint  than  in  the  bomber  maintenance  cycle  (O'Malley 
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2006).  Also,  life  support  and  all  the  maintenance  and  associated  checks  that  go  into 
making  sure  the  B-2  will  support  an  aircrew  are  unnecessary  in  the  launch  vehicle  which 
is  assumed  to  be  uninhabited. 


Shuttle  Operations 

The  Space  Shuttle  has  long  been  studied  using  simulation. 

The  use  of  discrete  event  simulation  to  model  the  Space  Shuttle  began  as  early 
as  1970  before  the  shuttle  was  approved  for  development.  That  initial  work 
suffered  from  a  lack  of  an  established  baseline  for  what  the  shuttle  architecture 
would  actually  be.  (Cates,  Mollaghasemi  et  al.  2002) 

These  early  attempts  at  simulating  the  Space  Shuttle  were  not  very  accurate  in 
that  the  actual  process  they  were  modeling  had  not  yet  been  developed.  Further,  the 
complications  increased  when  NASA  considered  plans  to  increase  the  flight  rate. 

In  1999,  at  a  time  when  NASA  was  considering  plans  to  increase  the  flight 
rate  from  7  flights  per  year  to  as  many  as  1 5  flights  per  year,  the  Kennedy  Space 
Center  began  discussions  with  the  University  of  Central  Florida  to  develop  a 
simulation  model  of  Space  Shuttle  processing.  The  doubling  of  the  flight  rate  was 
expected  to  strain  the  existing  workforce,  facilities,  ground  support  equipment,  and 
flight  hardware  elements.  The  question  was  which  parts  would  be  strained  and  how 
much?  (Cates,  Mollaghasemi  et  al.  2002) 


GEM-FLO 

The  Generic  Environment  for  Modeling  Future  Launch  Operations  (GEM-FLO)  is  a 
model  that  provides  an  upper-level  view  of  Reusable  Launch  Vehicles. 

The  issues  precipitating  the  need  for  a  generic  RLV  simulation  model 
were  to  analyze  the  operations  perfonnance  of  several  architectures  in  a  timely 
manner,  and  to  provide  feedback  to  the  design  community  as  to  the  operational 
ramifications  of  design  decisions.  To  this  end,  the  Generic  Simulation 
Environment  for  Modeling  Future  Launch  Operations  (GEMFLO)  was  developed. 
(Steele,  Mollaghasemi  et  al.  2002) 
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GEMFLO  does  not  model  a  particular  vehicle,  but  rather  offers  a  high-level  view 
of  a  generic  vehicle’s  operational  steps.  Specific  models  do  provide  an  easier  path  to 
higher  fidelity  analyses  and  more  representative  animation,  which  can  be  crucial  to 
obtaining  face  validity  (Steele,  Mollaghasemi  et  al.  2002).  GEMFLO  is  not  as  detailed  as 
AFRL  personnel  require  to  make  decisions  about  maintenance  practices. 

sovocs 

SOVOCS  data  is  restricted  by  International  Traffic  in  Arms  Regulations  (ITAR) 
and/or  Export  Administration  Regulations  (EAR)  and  is  subject  to  the  export  control  laws 
of  the  United  States.  Performed  by  the  Boeing  Corporation,  SOVOCS  was  a 
commissioned  study  by  the  Air  Force  Research  Laboratory  (AFRL)  to  detennine  the 
launch  vehicle  configuration.  This  study  included  modeling  software  to  detennine  the 
rate  at  which  a  vehicle  could  be  regenerated  based  on  its  configuration.  In  short,  the 
study  found  that  a  launch  vehicle  could  be  regenerated  in  the  2-3  day  time  frame.  The 
simulation  pointed  out  that  TPS  and  propulsion  are  the  two  critical  tasks  that  drive  the 
regeneration  time.  SOVOCS  also  found  that  aircraft  had  the  desired  operability.  The 
study  is  a  static.  AFRL  personnel  cannot  use  it  to  examine  how  maintenance  changes 
could  affect  the  overall  launch  vehicle  regeneration  time. 

Summary 

Because  of  the  special  surface  handling  requirements  and  its  size  similarities,  the 
B-2  offers  an  excellent  opportunity  to  create  a  baseline  model  of  the  launch  vehicle’s 
maintenance  cycle.  The  differences  have  been  noted  and  can  be  dealt  with  in  the  model. 
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Further,  the  B-2  has  a  similar  mission  to  the  launch  vehicle.  It  puts  a  payload  in  place 
during  a  longer  duration  mission,  returns  to  be  refueled  and  prepared  for  the  next  flight, 
and  repeats  as  necessary.  This  makes  the  two  systems  a  good  match  for  building  a  model 
that  can  be  checked  with  actual  maintenance  practices.  Existing  models  are  not  robust 
enough  or  are  too  mired  in  detail  and  technical  barriers  to  be  useful  for  AFRL  personnel 
to  use.  This  lack  of  a  good  method  of  evaluating  maintenance  practices  drives  the  need 
to  create  a  model  that  works  better  in  this  capacity. 
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III.  Building  the  Model 


Process  Overview 

This  chapter  will  explain  why  a  simulation  was  used  and  cover  building  the  model 
in  Arena  software  as  well  as  the  process  to  selecting  modules  to  populate  the  model. 
Arena  was  chosen  since  the  sponsor  of  this  research  has  access  to  the  software  and  it  is 
widely  used  by  Department  of  Defense  analysts.  It  has  also  been  used  in  previous  NASA 
research(Cates,  Mollaghasemi  et  al.  2002).  Arena  offers  a  great  amount  of  freedom  to 
build  models  with  flexibility  for  future  expansion.  This  chapter  will  also  describe  the 
Delphi  panel  that  was  used  to  validate  the  conceptual  maintenance  model.  Building  the 
Graphical  User  Interface  (GUI)  will  be  explained  on  in  this  chapter  as  well. 

Why  Simulation? 

A  method  was  chosen  to  represent  the  maintenance  cycle  that  would  enable 
changes  to  be  introduced  and  tested  easily.  “Simulation  enables  the  study  of,  and 
experimentation  with,  the  internal  interactions  of  a  complex  system  or  of  a  subsystem 
within  a  complex  system. . .  Simulation  can  be  used  to  experiment  with  new  designs  or 
policies  before  implementation,  so  as  to  prepare  for  what  might  happen.”(Banks,  II  et  al. 
2005)  Simulation  refers  to  a  broad  collection  of  methods  and  applications  to  mimic  the 
behavior  of  real  systems,  usually  on  a  computer  with  appropriate  software  (Kelton, 
Sadowski  et  al.  2004).  It  is  this  ability  to  mimic  a  real  system  that  I  wanted  to  be  able  to 
present  to  my  sponsor.  Simulations  can  be  detailed  enough  to  provide  actionable  output 
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yet  general  enough  to  allow  for  changes  to  be  introduced  as  technology  or  requirements 
change.  It  is  this  capability  that  makes  simulation  the  best  method  to  use  in  this  case. 


Beginning  the  Process 

The  Air  Force  needs  a  way  to  evaluate  the  early  design  alternatives  for  a  reusable 
launch  vehicle.  Since  the  vehicle  and  its  operations  have  many  aspects  that  have  yet  to 
be  detennined,  a  simulation  model  offers  the  flexibility  of  making  changes  quickly  to 
evaluate  improved  methodology. 

Little  literature  exists  on  the  ground  maintenance  portion  of  space  launch 
vehicles.  Sea  Launch,  a  good  place  to  look  for  integration,  launch,  and  recovery, 
basically,  has  no  maintenance  of  the  type  that  a  reusable  launch  vehicle  would  have 
(Boeing  2000).  The  same  goes  for  any  of  the  non-reusable  assets  like  Intercontinental 
Ballistic  Missiles.  Further,  there  is  no  single  person  to  turn  to  who  knows  the  entire 
spectrum  of  ground  maintenance  for  an  as  of  yet  undetennined  vehicle.  Building  a  model 
covering  the  entire  ground  maintenance  operations  cycle  requires  a  lot  of  expertise.  This 
expertise  is  spread  over  multiple  career  fields  and  throughout  the  civilian  ranks.  The  best 
way  to  tap  a  geographically  separated  pool  of  experts  is  through  the  use  of  a  Delphi  panel 
(H.  Murat  Gunaydin  1998). 

The  Model  Building  Process 

“The  simulation-model  building  process...  can  be  broken  down  into  four 
phases. ’’(Banks,  II  et  al.  2005)  Figure  3  shows  the  four  phases.  Phase  one  covers  the 
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first  2  steps  and  is  where  the  formulation  and  setting  of  objectives  takes  place.  This 
phase  is  completed  when  the  research  question  and  investigative  questions  are  settled 
upon.  The  second  phase  covers  steps  3  through  7.  It  is  this  phase  that  constitutes  the 
bulk  of  this  methodology  chapter.  This  is  where  verification  and  validation  takes  place  as 
well  as  where  the  Delphi  panel  is  utilized.  The  third  phase  covers  steps  8  through  10  and 
is  where  the  model  is  run.  Finally,  phase  4  is  implementation,  which  is  in  the  hands  of 
the  sponsor  of  this  research. 


Figure  3  Steps  in  a  Simulation  Study 
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The  Delphi  Panel 

A  Delphi  panel  is  a  group  of  experts  who  meet  on  a  regular  basis  to  come  to  an 
agreed  upon  solution  to  a  problem  (H.  Murat  Gunaydin  1998).  In  our  case,  it  is  to 
develop  a  maintenance  model.  Stiegehneier  developed  the  prelaunch  portion  of  the 
model  (Stiegehneier  2006).  He  and  I  worked  together  on  many  parts  of  the  model  and 
code  together.  We  also  set  up  the  Delphi  panel  together  and  used  it  to  refine  and  validate 
our  respective  prelaunch  and  maintenance  portions  of  the  vehicle  regeneration  model. 

The  Delphi  panel  begins  with  a  rough  stab  at  what  processes  are  thought 
to  belong  to  the  area  of  interest.  In  this  aspect,  I  developed  a  flowchart  of  the  activities 
and  their  sequencing  that  followed  aircraft  maintenance  methods  that  I  have  observed  in 
9  years  working  the  flight  line  of  various  aircraft,  including  the  A- 10,  F-15C,  and  the  B- 
52H.  I  spoke  with  experts  on  the  B-2  to  ascertain  the  maintenance  practices  that  differ 
from  that  of  the  B-52.  The  B-2  aircraft  is  similar  in  many  ways  to  the  launch  vehicle  in 
that  it  is  a  complicated  system  that  has  similar  flight  parameters  and  maintenance 
hindered  by  a  special  surface  coating.  By  utilizing  the  B-2  maintenance  practices  and 
noting  the  probable  differences,  a  reasonably  accurate  model  could  be  constructed.  Once 
the  initial  model  was  built,  experts  were  found  in  various  fields  that  could  add  experience 
from  their  areas  of  expertise  to  enhance  and  validate  the  model.  Confidentiality  was 
assured  to  get  unbiased  input  without  fear  of  reprisal. 

Two  experts  in  intercontinental  ballistic  missile  maintenance  were  chosen.  This 
brought  vertical  integration  skills,  heavy  equipment  movement,  connection  to 
boosters/motors  expertise,  as  well  as  more  than  20  years  of  experience  to  the  process. 
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Two  aircraft  maintainers  were  included  from  Air  Combat  Command.  One  has  experience 
with  tighter  aircraft,  the  other  with  heavy  aircraft.  The  tighter  maintainer  brought  rapid 
regeneration  times,  expedited  maintenance  practices,  and  quick  motor  change  to  the  table 
with  his  20+  years  of  experience.  The  other  aircraft  maintainer  is  equally  experienced, 
but  on  the  U-2,  041,  030,  035,  SR-71,  and  B-52  aircraft.  There  were  experts  on  the 
Space  Shuttle  on  the  panel  as  well.  The  five  Shuttle  people  combined  to  deliver  more 
than  80  years  of  space  vehicle  maintenance  experience  to  the  Delphi  panel.  There  were 
several  modeling  and  analysis  people  involved  in  the  panel  as  well.  These  people  ranged 
from  the  Air  Force’s  Operationally  Response  Space  program  to  component  level  model 
experts.  The  Delphi  panel  had  19  members. 

With  missile,  small  and  large  aircraft,  Space  Shuttle,  and  modeling  experts 
involved,  the  Delphi  panel  was  truly  a  well  rounded  panel  with  experts  in  all  associated 
fields.  The  panel  was  presented  with  the  proposed  conceptual  flows  in  the  Delphi’s  first 
round  —  see  Appendix  A  for  the  model’s  Visio  representation.  The  Appendix  shows  only 
pages  1  through  8  of  the  Visio  representation.  This  is  because  pages  9  through  14 
represented  the  prelaunch  operations  that  Stiegehneier  covered  in  his  thesis  (Stiegehneier 
2006).  The  model  was  improved  with  each  of  three  Delphi  rounds,  after  which  the  panel 
recommended  no  further  changes.  The  individual  rounds  and  panel  comments  are  shown 
in  Appendices  B,  C,  and  D.  Our  responses  to  comments  are  italicized.  The  comments 
are  listed  by  Visio  page.  This  enabled  panel  members  to  refer  to  the  Visio  document  to 
clarify  comments.  Also,  notice  that  the  comments  are  prefaced  with  a  number.  A 
number  was  randomly  assigned  to  each  respondent  to  mask  his  or  her  identity  from  other 
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panel  members.  The  responses  by  these  experts  ensured  that  the  model  was  built  using 
expertise  from  all  related  areas.  One  of  the  challenges  with  using  a  Delphi  panel  is  that 
over  time,  the  panel  members  may  become  unable  to  devote  further  attention  to  the 
process.  After  it  was  apparent  that  the  changes  we  were  receiving  were  minor,  we  put  in 
a  final  request  that  all  members  respond  to  either  confirm  that  the  model  was  a  good 
representation,  or  recommend  further  changes.  We  received  confirmation  from  most  of 
the  panel,  and  no  suggested  changes.  At  that  point,  we  declared  the  panel  complete  and 
moved  on  to  the  next  step  which  was  building  the  model  in  Arena. 

Building  the  Model  in  Arena 

Simulation  refers  to  a  broad  collection  of  methods  and  applications  to 
mimic  the  behavior  of  real  systems,  usually  on  a  computer  with 
appropriate  software.  In  fact,  “simulation”  can  be  an  extremely  general 
term  since  the  idea  applies  across  many  fields,  industries,  and  applications. 

These  days,  simulation  is  more  popular  and  powerful  than  ever  since 
computers  and  software  are  better  than  ever.  (Kelton,  Sadowski  et  al. 

2004) 

The  software  that  was  used  to  build  a  model  of  the  maintenance  cycle  is  Arena 
7.01.00  and  is  available  off  the  shelf.  The  Arena  software  offers  that  “Arena  is  an  easy- 
to-use,  powerful  tool  that  allows  you  to  create  and  run  experiments  on  models  of  your 
systems.  By  testing  out  ideas  in  this  computer  "laboratory,"  you  can  predict  the  future 
with  confidence  ...  and  without  disrupting  your  current  business  environment.”  (Kelton, 
Sadowski  et  al.  2004)  Arena  will  allow  some  flexibility  with  maintenance  times  and 
distributions.  This  is  important  in  modeling  a  system  with  no  historical  data  to  back  up 
the  results. 
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The  typical  scenario  for  a  simulation  study  entails  developing  a 
specific  model  of  an  existing  system  for  the  purpose  of  analysis.  This 
begins  with  the  capturing  of  knowledge  by  the  simulation  analysis  from 
the  system  expert,  including  information  of  system  structure  and  data,  and 
continues  to  the  modeling  of  that  information  and  data  at  some  level  of 
abstraction,  the  running  of  model  scenarios,  and  the  subsequent  analysis  of 
the  resulting  model  output  data.  Typically,  this  is  accomplished  of  a 
system  that  is  in  existence,  or  nearly  so,  that  has  the  requisite  details 
known  by  which  to  construct  and  run  a  simulation.  (Steele,  Mollaghasemi 
et  al.  2002) 

Arena  uses  modules  to  represent  processes  and  decisions.  These  processes  can  be 
populated  with  values  ranging  from  a  single  value  to  most  types  of  distributions.  The 
many  processes  involved  in  the  maintenance  cycle  of  a  notional  launch  vehicle  lack 
historical  data  to  quantify  them.  “There  are  three  distributions  that  have  application  to 
incomplete  or  limited  data.  These  are  the  uniform,  triangular,  and  beta  distributions” 
(Banks,  II  et  al.  2005).  The  unifonn  distribution  assumes  that  the  process  is  random  but 
that  nothing  else  is  known  about  process  times.  Experience  in  processes  similar  to  most 
of  the  events  that  will  occur  during  launch  vehicle  maintenance  allows  me  to  assign  a 
likely  minimum,  maximum,  and  mode  value.  The  triangular  distribution  can  be  used 
when  assumptions  are  made  about  the  minimum,  maximum,  and  modal  values  of  the 
random  variable  (Banks,  II  et  al.  2005).  In  the  following  pages,  the  final  model  will  be 
explained. 

There  are  several  modules  in  the  front  part  of  the  model  that  will  not  be  discussed 
in  this  paper.  Those  modules  are  used  to  determine  the  flow  through  the  model  past  the 
maintenance  portion.  The  paths  involve  the  integration  portion  of  the  overall  model,  and 
are  presented  by  Stiegehneier  (Stiegehneier  2006).  Figure  4  shows  the  first  main  part  of 
the  maintenance  portion  of  the  model.  The  first  module  assigns  a  value  to  the  number  of 
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motors  variable.  This  prevents  data  from  a  previous  run  of  the  model  from  interfering 
with  the  current  run.  The  next  module  is  the  connection  of  the  tow  vehicle  to  the  launch 
vehicle.  The  connections  are  to  tow  the  launch  vehicle  on  its  own  landing  gear  as  regular 
aircraft  are  towed.  Following  that  module  is  the  transportation  time  from  the  safing  area 
to  the  maintenance  facility.  The  fourth  module  seizes  the  maintenance  bay.  This 
prevents  multiple  launch  vehicles  from  occupying  the  same  space.  The  next  module  is 
the  positioning  module.  This  includes  positional  moves  as  well  as  hanger  door  openings 
and  closings  that  may  be  necessary.  The  electrical  grounding  procedures  follow  that. 

The  last  module  in  Figure  4  is  the  disconnection  from  the  launch  vehicle. 


Seize  Mx  Bay 


Figure  4  Arena  Model 

Figure  5  is  the  next  section  of  the  model.  The  first  module  is  the  process  of 
interrogating  the  launch  vehicle’s  maintenance  data  reporter  to  determine  system  health. 
This  information  will  allow  for  maintainers  to  prepare  for  maintenance  tasks  down  the 
line.  The  current  generation  of  Integrated  Vehicle  Health  Monitoring  systems  has  the 
capabilities  to  report  maintenance  status  prior  to  landing  (John  B.  Shroeder  2006).  In  that 
case,  this  module  would  simply  have  a  value  of  zero  because  the  user  would  enter  a 
constant  value  of  zero  to  show  that  no  time  is  used  during  the  maintenance  cycle  to  get 
the  information.  The  positioning  of  all  the  various  maintenance  stands  follows.  At  this 
point,  aircraft  style  maintenance  stands  are  assumed  to  be  used.  The  module  can  be  used 
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to  represent  the  time  it  would  take  to  position  built-in  stands  as  well,  though.  There  will 
be  electrical  connections  required  to  power  up  the  various  systems  in  the  launch  vehicle. 
The  third  module  represents  the  time  that  is  required  for  these  connections.  Again,  this 
module  is  set  up  assuming  a  single  connection  point  for  external  power.  The  separate 
module  follows.  This  allows  the  model  to  depict  multiple  paths  of  parallel  processes. 
When  there  is  a  chance  that  the  processes  can  not  be  done  in  parallel,  they  were  put  in  a 
serial  branch.  This  ensures  that  if  there  is  an  error  made  in  the  ability  to  perform  tasks  in 
parallel  sequence,  the  actual  maintenance  procedures  will  take  less  time  than  the  model 
predicts.  Battery  testing  is  the  last  module  in  Figure  5.  It  is  on  the  upper  leg  of  a  parallel 
branch. 


Figure  5  Arena  Model  (cont.) 

Figure  6  depicts  the  first  decision  module  of  the  maintenance  part  of  the  model. 
This  module  is  controlled  by  a  probability  argument.  If  the  batteries  are  good,  they  are 
charged  in  the  far  right  module.  If  they  are  not  good,  they  are  replaced  in  the  lower 
module  and  then  charged  in  the  far  right  module. 
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Figure  6  Arena  Model  (cont.) 

Figure  7  depicts  the  lower  branch  portion  of  Figure  5  that  is  in  parallel  with  the 
modules  in  Figure  6.  The  first  and  last  modules  are  the  split  and  recombining  modules. 
They  are  the  beginning  and  end  of  a  set  of  processes  in  a  parallel  configuration.  The 
second  module  allows  for  time  to  perfonn  all  electrical  avionics  testing.  This  is  the 
testing  to  ensure  the  avionics  package  is  communicating  appropriately.  The  flight 
controls  module  follows.  This  is  to  test  that  the  avionics  system  controls  the  flight 
surfaces  correctly.  The  lower  module  allows  for  the  removal  of  experimental  data  or 
telemetry  information.  The  information  that  these  modules  represent  can  be  adjusted  to 
represent  different  processes  as  long  as  they  fall  into  the  general  categories  depicted. 


Figure  7  Arena  Model  (cont.) 
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Figure  8  shows  the  end  of  the  first  parallel  branches  as  well  as  starting  two  more. 
The  second  module  is  the  testing  of  the  electrical  connections  that  will  go  between  the 
first  and  second  stages.  This  involves  connecting  a  tester  or  dummy  load  that  will  allow 


the  internal  checks  to  be  completed. 


Figure  8  Arena  Model  (cont.) 

Figure  9  shows  some  tasks  that  can  be  perfonned  in  parallel.  The  lower  leg 
involves  stage  2  connections  and  hardware.  The  third  module  is  for  a  buffer  plug 
removal  and  installation.  This  method  uses  a  plug  with  pins  on  both  sides.  During  quick 
turns  on  fighter  aircraft  when  speed  is  important,  the  buffer  plug  offers  a  secure 
connection  that  allows  for  separation  between  two  vehicles  in  motion.  The  top  portion  of 
this  figure  has  a  module  for  replacing  the  drag  chute  if  the  vehicle  uses  one.  The  final 
three  modules  involve  the  Thermal  Protection  System  (TPS).  The  TPS  modules  can  be 
minimized  if  the  launch  vehicle  does  not  require  extensive  TPS  work.  This  would  be  the 
case  if  the  vehicle  had  a  low  atmospheric  re-entry  speed. 
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Figure  9  Arena  Model  (cont.) 

Figure  10  connects  to  Figure  9.  The  top  line  is  a  continuation  of  the  TPS  process. 
The  surface  would  be  checked  after  all  systems  checked  out  good.  This  will  preclude 
multiple  surface  inspections  as  well  as  ensuring  that  the  surface,  once  repaired,  will  not 
be  damaged  from  other  maintenance  being  perfonned.  The  total  time  that  is  spent  on 
TPS  work  can  be  high.  The  B-2,  while  using  a  surface  treatment  for  stealth  versus 
thermal  protection  purposes,  can  take  30  hours  to  repair  after  panel  access  (O’Malley 
2006).  It  is  important  that  minimal  surface  damage  occur  during  the  other  phases  of 
maintenance. 

The  final  module  on  the  top  line  accommodates  time  to  perform  a  full  system 
check.  This  module,  because  of  the  time  that  the  preceding  modules  require,  will  be  the 
last  process  completed  before  TPS  waterproofing.  The  parallel  group  allows  for  the 
checking  of  fluid  systems.  Any  line  replaceable  unit  replacements  are  modeled  in  the 
final  block  of  the  parallel  portion.  The  last  module  assigns  a  value  to  the  number-of  - 
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motors  variable.  This  value  is  additive  every  time  the  process  path  goes  through  the 
module.  This  sets  up  a  limited  loop. 


Number  of 
motors 

Figure  10  Arena  Model  (cont.) 

One  aspect  of  the  launch  vehicle  that  will  differ  from  aircraft  maintenance  is  the 
fact  that  the  engine  will  require  certain  tasks  to  be  performed  after  every  flight.  These 
checks  will  include  tank  checks,  valve  operation,  nozzle  controls,  and  linkage 
inspections.  The  design  of  the  engine  will  greatly  affect  how  maintenance  is  performed 
in  this  area.  Since  the  engine  is  not  required  for  testing  of  the  other  avionics  systems,  it 
can  be  inspected  while  the  other  avionics  are  being  tested.  This  parallel  processing  will 
enable  the  maintenance  footprint  to  be  quite  a  bit  smaller.  A  modular  engine  assembly 
that  could  be  quickly  removed  and  replaced  would  be  an  alternative  to  repairing  the 
engine  while  attached  to  the  launch  vehicle.  These  alternatives  are  captured  in  the  first 
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module  of  Figure  1 1  which  is  a  decide  node.  If  the  motor  is  modular,  the  upper  path  will 
be  utilized.  Otherwise,  the  lower  path  will  be  followed. 

The  first  module  of  the  top  path  is  where  the  motor  stand  is  connected  to  the 
launch  vehicle.  The  stand  is  rolled  into  place  where  it  is  pinned  to  the  launch  vehicle  to 
hold  it  in  place.  A  cradle  is  connected  to  the  motor  that  will  enable  it  to  be  rolled  back 
onto  the  stand.  The  second  and  third  modules  are  where  the  motor  is  disconnected  from 
the  launch  vehicle  in  preparation  of  being  removed  to  the  stand.  Then,  it  is  removed. 

The  last  module  is  where  the  stand  is  disconnected  and  moved  out  of  the  way.  At  this 
time,  it  could  be  taken  to  the  motor  shop  which  would  be  where  motors  are  refurbished 
and  prepared  for  further  use. 

The  lower  path  is  where  maintenance  tasks  are  performed  without  removing  the 
motor.  The  first  module  is  the  diagnostics  module.  This  enables  the  connection  of  test 
equipment  to  determine  the  extent  of  repairs  to  the  individual  motors.  The  next  three 
modules  separate  out  the  tasks  perfonned  during  motor  checkout  and  refurbishing.  The 
linkage  check  and  repair  module  is  shown  in  Figure  12. 


Connect  motor 
stand 
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Remove  Motor 


Figure  11  Arena  Model  (cont.) 
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Figure  12  continues  the  motor  replacement  process.  The  placement  of  a  stand 
with  a  good  motor  on  it  is  what  the  first  module  represents.  Just  like  in  the  removal 
portion,  this  module  is  where  the  stand  is  connected  to  the  launch  vehicle  to  stabilize  the 
stand  for  rolling  the  motor  into  the  launch  vehicle.  The  motor  is  then  connected 
mechanically  and  then  electrically.  A  connection  test  is  performed  prior  to  removing  the 
stand.  If  there  is  a  problem  with  the  connections,  leaving  the  stand  in  place  facilitates 
removal  of  the  motor.  Finally,  the  stand  is  disconnected  and  removed  from  the  area. 
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Figure  12  Arena  Model  (cont.) 

Figure  14  shows  just  three  process  modules.  The  top  module  is  the  application  of 
a  TPS  waterproof  coating.  This  coating  could  probably  be  applied  via  a  stationary  spray 
device  that  the  vehicle  is  towed  through  like  a  large  car  wash  booth.  However,  presently, 
the  waterproofing  is  applied  by  hand  sprayers  while  the  vehicle  is  located  in  the 
maintenance  facility.  This  module  allows  either  method  to  be  utilized. 

There  is,  in  the  second  row,  a  “motor  decide”  module.  This  module  looks  at  the 
entity  (which  represents  the  current  task  from  a  vehicle’s  collective  regeneration 
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activities  prior  to  a  particular  flight)  going  through  the  model.  If  the  entity  has  cycled 
through  the  motor  repair  loop  for  as  many  times  as  the  vehicle  has  motors,  then  it  passes 
through.  Otherwise,  the  entity  is  forced  back  through  the  motor  loop  to  allow  for  time  to 
check  and  repair  the  next  motor.  This  module  allows  the  model  to  represent  launch 
vehicle  designs  with  different  numbers  of  motors. 

The  last  module  on  the  second  row  is  the  engine  checkout  module.  This  last 
module,  another  decide  node,  asks  if  the  motor  check  was  good.  If  the  motor  check  was 
not  good,  the  entity  is  forced  back  through  the  engine  diagnostics  and  repair  loop.  If  the 
check  is  good,  the  entity  proceeds  out  of  the  maintenance  section  of  the  model  and  into 
the  prelaunch  model  coded  by  Stiegehneier.  Figure  13’s  last  line  contains  the  “Landing 
Gear  and  Tires”  module  which  allows  for  time  to  check  and  repair  as  necessary  the  tires, 
brakes  and  landing  gear  assembly. 
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Scheduled  maintenance  includes  any  Time  Compliant  Technical  Order  (TCTO) 
work  and  any  pre-planned  maintenance.  The  TCTOs  are  the  Air  Force  equivalent  of  a 
factory  recall  and  includes  isochronal  inspections.  TCTOs  correct  conditions  that  could 
result  in  damage  to  equipment,  injury  to  personnel,  or  destruction  of  the  system.  These 
inspections  can  be  planned  ahead  of  time  to  take  advantage  of  scheduled  down  time.  It 
should  be  noted  that  scheduled  maintenance  can  be  performed  during  lulls  in  the  sortie 
generation.  That  is,  when  the  launch  vehicle  is  not  needed  to  be  launched  for  an  amount 
of  time  that  is  greater  than  the  time  the  maintenance  will  require,  scheduled  maintenance 
should  be  perfonned.  Preplanned  maintenance  tasks  may  include  any  maintenance  that 
was  not  the  result  of  operations. 

The  last  module  was  included  in  Figure  13  as  well.  See  the  section  on  Figure  13 
for  an  explanation  of  this  module. 


0  0  0 


Figure  14  Arena  Model  (cont.) 


Building  the  Graphical  User  Interface  (GUI) 

The  sponsor  of  this  research  requested  that  the  model  be  built  in  such  a  way  that  a 
person  with  limited  experience  in  Arena  or  simulation  could  use  it.  To  simplify  the 
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process  of  running  the  model,  a  GUI  was  developed  that  is  simple  to  use  and  self 
explanatory.  Experience  with  regular  computer  software  is  all  that  is  necessary  to  run  the 
model.  Stiegelmeier  and  I  teamed  up  to  develop  MILePOST  (Stiegelmeier  2006).  This 
software  starts  automatically  upon  selecting  the  appropriate  Arena  model.  Further,  this 
software  allows  the  user  to  save  a  current  modeling  run  as  a  uniquely  named  file  to 
simplify  the  ability  to  run  multiple  models  and  access  past  runs. 

The  GUI  is  made  up  of  several  successive  screens  that  are  dynamically  linked  to 
the  Arena  model.  Changes  on  the  page  are  updated  to  the  Arena  model  as  the  screens  are 
navigated.  The  opening  screen  is  shown  in  Figure  15. 


Figure  15  MILePOST  welcome  screen 

The  Hierarchy  screen  allows  the  user  to  navigate  directly  to  the  portion  of  the 
model  that  requires  updating.  MILePOST  always  displays  the  most  current  run  model 
values.  This  feature  allows  subsequent  runs  to  be  made  quickly  while  requiring  only  the 
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changes  made  that  differ  from  the  last  model’s  inputs,  as  shown  in  Figure  16.  The 
program  opens  an  Excel  file  that  reads  each  run’s  regeneration  time— putting  the  data  in 
an  easy  to  use  format  that  can  be  saved  and  manipulated,  and  eliminating  the  need  to 
understand  Arena’s  output  analysis  software.  Each  successive  page  in  MILePOST  asks  a 
series  of  questions  that  can  be  answered  either  with  experimental  data  or  populated  with 
the  default  distributions  that  the  literature  and  discussions  with  the  Delphi  experts  suggest 
are  reasonable  representations  of  processes. 


Figure  16  MILePOST  Hierarchy  screen 
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The  Milepost  GUI  consists  of  more  than  196  pages  of  Virtual  Basic  for 
Application  (VBA)  code,  as  shown  in  Appendix  E.  Of  those,  67  pages  cover  the 
maintenance  portion.  The  remaining  code  was  coded  by  Stiegehneier  and  covers  the 
prelaunch  portion  of  the  model  (Stiegehneier  2006). 
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IV.  Analysis  and  Results 


Chapter  Overview 

The  model  was  first  tested  to  ensure  that  all  paths  are  possible.  That  is,  the  test 
ensured  that  there  are  no  logic  errors  that  would  prevent  an  outcome  from  being  possible, 
given  the  right  inputs.  After  assuring  that  all  paths  are  possible,  the  model  was  exercised 
to  provide  insights  and  detect  sensitivities.  This  was  done  by  selecting  expected  values 
for  all  modules  except  for  the  three  with  the  longest  possible  processing  time.  Those 
three  were  manually  changed  to  range  from  the  minimum  expected  value  to  their  highest 
expected  value  to  ensure  the  model  reacts  predictably. 

Checking  the  model  paths 

Model  assumptions  fall  into  two  general  classes:  structural  assumptions  and  data 
assumptions.  Structural  assumptions  involve  questions  of  how  the  system  operates  and 
usually  involve  simplifications  and  abstractions  of  reality  (Banks,  II  et  al.  2005). 

To  facilitate  the  checking  of  the  model  structure,  a  simple  methodology  was 
followed.  First,  all  values  were  set  to  zero  for  every  process  module.  Next,  the  model 
was  forced  to  represent  each  of  eight  possible  outcomes  through  manipulation  of  the 
decision  nodes.  See  Table  1  for  the  tests. 

To  begin  the  testing  process,  all  values  were  set  to  zero.  The  expected  outcome 
for  10  runs  would  be  a  regeneration  time  of  zero  minutes  for  each  run  since  the 
distribution  used  each  time  was  a  constant  zero.  Zero  was  the  outcome  for  each  of  10 
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simulation  runs.  This  ensures  that  no  process  module  has  an  affect  to  these  tests  with 
their  current  value.  That  is,  to  affect  the  test,  their  value  must  be  moved  from  zero. 


Table  1  Model  Tests 


Model  Tests 

Test 

# 

Batteries 

Good? 

Modular 

Motor? 

Good 

Motor 

Test? 

Expected 

Outcome 

1 

Yes 

Yes 

Yes 

10 

2 

Yes 

Yes 

No 

20 

3 

Yes 

No 

Yes 

100 

4 

Yes 

No 

No 

200 

5 

No 

Yes 

Yes 

11 

6 

No 

Yes 

No 

21 

7 

No 

No 

Yes 

101 

8 

No 

No 

No 

201 

The  first  four  tests  require  that  the  batteries  are  good.  To  ensure  that  they  are,  I 
set  the  probability  that  the  batteries  would  test  good,  to  100%.  The  only  module  that 
comes  into  play  from  this  decide  module  is  the  “Replace  Batteries”  module.  By  setting 
this  module  to  ‘one’,  any  outcome  that  includes  it  will  end  in  a  ‘one’  as  shown  in  Table  1 
So,  the  first  four  tests  in  Table  1  will  NOT  have  a  ‘one’.  That  outcome  is  only  possible  if 
the  “Batteries  Good”  decide  module  is  false. 

Next,  I  set  “Connect  Motor  Stand”  process  module  equal  to  10.  This  way,  any 
test  that  has  a  value  in  the  tens  place  would  indicate  that  the  Modular  path  was  used. 

This  should  be  the  case  in  tests  1,2,5,  and  6  of  Table  1. 
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Setting  the  “Nozzles”  process  module  to  100  allows  the  “Motor  Decide”  module, 
which  checks  for  a  good  motor,  to  be  tested.  If  a  motor  is  bad,  the  system  loops  back.  If 
the  Non-Modular  path  had  been  picked,  this  will  add  100  to  the  outcome  for  every  pass 
where  a  motor  tested  bad.  Setting  the  probability  to  zero  would  ensure  that  the  entity 
would  have  no  chance  of  getting  out  of  the  loop.  This  would  make  testing  in  this  manner 
impossible.  By  setting  the  probability  low  and  running  10  tests,  some  of  the  outcomes 
would  have  multiples  of  either  10  (if  Modular)  or  100  (if  Non-Modular)  but  some  could 
beat  the  probability  and  come  through  without  multiples.  Table  1  also  shows  the 
expected  outcomes  of  the  tests  in  terms  of  multiples  of  1,  10,  or  100. 

Table  2  shows  the  actual  test  outcomes.  The  tests  were  successful.  Note  that  the 
battery  passed  its  check  in  the  7th  run  of  tests  5,  6,  7,  and  8.  Most  battery  checks  resulted 
in  battery  failure,  which  is  consistent  with  the  90%  failure  rate  coded  into  the  model. 

After  running  the  model  100  times,  Arena  produced  only  8  outcomes  where  the  batteries 
passed  their  check.  Each  run  of  the  model  resets  the  stream  of  numbers  that  are  randomly 
generated.  Since  the  model  has  no  change  in  the  order  in  which  the  numbers  are  utilized, 
it  stands  to  reason  that  the  same  number  would  fall  on  the  same  simulation  (Kelton, 
Sadowski  et  al.  2004). 

Sensitivity 

The  tests  so  far  proved  the  model  can  follow  differing  paths  depending  upon  user 
inputs.  Sensitivity  analysis  was  addressed  next. 

For  most  large-scale  simulation  models,  there  are  many  input  variables  and  thus 
many  possible  sensitivity  tests.  The  model  builder  must  attempt  to  choose  the  most 
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critical  input  variables  for  testing  if  it  is  too  expensive  or  time  consuming  to  vary  all 
input  variables.  (Banks,  II  et  al.  2005) 


Table  2  Verification  Tests 


Verification  Tests 

Test  1 

Test  2 

Test  3 

Test  4 

Test  5 

Test  6 

Test  7 

Test  8 

Run  1 

10 

20 

100 

200 

11 

21 

101 

201 

Run  2 

10 

20 

100 

200 

11 

21 

101 

201 

Run  3 

10 

20 

100 

200 

11 

21 

101 

201 

Run  4 

10 

20 

100 

200 

11 

21 

101 

201 

Run  5 

10 

20 

100 

200 

11 

21 

101 

201 

Run  6 

10 

20 

100 

200 

11 

21 

101 

201 

Run  7 

10 

20 

100 

200 

10 

20 

100 

200 

Run  8 

10 

20 

100 

200 

11 

21 

101 

201 

Run  9 

10 

20 

100 

200 

11 

21 

101 

201 

Run  10 

10 

20 

100 

200 

11 

21 

101 

201 

Expected 

10 

20 

100 

200 

11 

21 

101 

201 

In  the  case  of  MILePOST,  the  model’s  output  is  the  total  time  to  perform  maintenance 
and  prelaunch  activities  between  launch  vehicle  flights.  Since  time  is  the  most  important 
factor,  instead  of  utilization  rates  or  resource  utilization,  the  variables  with  the  highest 
possible  time  constraints  are  the  ones  that  are  of  interest. 

. ..  Sensitivity  analysis  can  be  used  even  very  early  in  a  project  to  assess  the  impact 
of  changes  in  data  on  the  model  results.  If  you  can’t  easily  obtain  good  data  about 
some  aspect  of  your  system,  run  the  model  with  a  range  of  values  to  see  if  the 
system’s  performance  changes  significantly.  If  it  doesn’t,  you  may  not  need  to 
invest  in  collecting  data  and  still  can  have  good  confidence  in  your  conclusions.  If  it 
does,  then  you’ll  either  need  to  find  a  way  to  obtain  reliable  data  or  your  results  and 
recommendations  will  be  coarser.  (Kelton,  Sadowski  et  al.  2004) 


Three  branches 

There  are  three  main  parallel  branches  in  the  maintenance  section  of  MILePOST. 
These  branches  represent  the  majority  of  time  that  is  in  the  maintenance  portion.  One 
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branch  represents  the  TPS  processes,  one  represents  Motor  maintenance,  and  the  final 
branch  represents  other  maintenance  that  can  be  accomplished  in  parallel  with  the  first 
two. 

The  flow  time  will  be  plotted  with  the  average  time  for  a  specific  job  with  95% 
confidence  intervals  utilizing  30  replications.  A  replication  is  one  entity,  or  launch 
vehicle,  entering  the  maintenance  cycle.  No  other  entity  enters  the  maintenance  cycle 
until  the  previous  entity  enters  preflight  operations. 

Results  of  Simulation  Scenarios 

Three  configurations  were  checked.  These  were  the  two  motor,  four  motor,  and 
six  motor  configurations.  The  values  that  were  used  to  exercise  each  branch  are  shown  in 
Table  3.  The  first  data  point  on  each  chart  depicts  the  default  values  for  each  module 
using  the  decision  selections  for  that  test.  Data  point  2  always  represents  the  branch  with 
a  total  processing  time  of  zero.  After  that,  the  data  points  rise  incrementally  to  show  the 
effect  that  value  change  has  on  that  particular  branch  of  the  model.  No  change  should  be 
detected  on  a  branch  that  is  not  on  the  critical  path. 
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Table  3  Values  used  for  branch  tests. 


Branch 

2  Motors 

4  Motors 

TPS 

1 

Defaults 

Defaults 

2 

0 

0 

3 

300 

600 

4 

600 

1200 

5 

900 

1800 

6 

1200 

2400 

Motor 

1 

Defaults 

Defaults 

2 

0 

0 

3 

300 

300 

4 

600 

600 

5 

900 

900 

6 

1200 

1200 

Other 

Maint 

1 

Defaults 

Defaults 

2 

0 

o  ! 

3 

600 

1200 

4 

1200 

2400 

5 

1800 

3600 

6 

2400 

4800 

The  first  set  of  tests  were  completed  for  launch  vehicles  with  two  installed  motors.  To 


run  these  tests,  the  value  of  each  branch  was  altered  in  turn  to  determine  the  point  that 


each  branch  becomes  the  longest  processing  time  of  the  three.  Figure  18  shows  the  results 


of  the  test. 


When  the  value  of  the  branch  was  dropped  to  zero  in  the  second  run,  the  overall 
length  of  time  for  regeneration  dropped.  This  shows  that  the  TPS  branch  is,  when  two 
motors  are  selected,  on  the  critical  path.  Further,  Figure  19  shows  the  other  two  branches 
when  the  two  motor  test  is  perfonned.  Data  point  two  remains  statistically  the  same  as 
data  point  one.  This  shows  that  lowering  the  branches  does  not  affect  the  model’s  overall 
processing  time.  The  TPS  branch  time  affects  the  overall  time  of  the  model  as  soon  as 
the  value  of  the  branch  approaches  300  minutes. 
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The  Motor  branch  does  not  affect  the  model  here  until  the  value  of  the  branch 


approaches  600  minutes.  Further,  the  Other  Maintenance  branch  does  not  affect  the 
model  until  the  branch  value  approaches  1800  minutes. 

These  first  tests  show  that  when  there  are  only  two  motors  selected,  effort  is  best 
placed  at  reducing  the  TPS  branch  as  lowering  its  overall  time  also  lowers  the  overall 
regeneration  time. 


Figure  17  Test  of  2  Motor  TPS  branch 


2  Motors/Motor 


2  Motors/Other  Maint 


Figure  18  Test  of  2  motor  selection  Motor  and  Other  Maintenance  branches 


The  set  of  tests  for  6  motors  echoed  the  test  for  4  motors.  The  motor  leg  is  on  the 
critical  path.  TPS  becomes  the  critical  path  when  the  branch  value  approaches  1200 


45 


minutes.  Figure  2 1  shows  the  Motor  and  Other  Maintenance  branch  when  4  motors  are 
selected.  Notice  that  there  is  no  significant  difference  in  the  Other  Maintenance  branch 
when  it  is  set  to  an  overall  value  of  zero.  The  Motor  branch  is  the  only  branch  that  shows 
a  decrease  in  overall  time  when  it  is  set  to  zero.  This  is  on  the  critical  path.  The  Motor 
branch  rises  with  any  value  above  zero.  The  other  two  branches  do  not  rise  until  their 
processing  time  is  increased  to  more  than  1200  for  TPS  or  2400  for  Other  Maintenance. 


Figure  19  Test  of  4  motors  TPS  branch 
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Figure  20  Test  of  4  motors  selected  Motor  branch  and  Other  Maintenance  branch 
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There  were  some  issues  with  using  the  above  methods  to  verify  and  validate  the 
model.  As  with  any  model,  these  issues  are  sometimes  introduced  by  the  methods  used 
by  the  tester  or  test  methods.  The  issues  that  were  introduced  by  the  methodology  used 
to  build  MILePOST  can  be  put  into  two  classes:  those  associated  with  the  Delphi 
process,  those  issues  relating  to  the  model. 

The  Delphi  panel  introduces  several  issues.  The  panel  members  were  aware  of 
each  other.  While  their  responses  were  masked,  the  rounds  were  emailed  to  the  members 
who  then  knew  who  the  other  respondents  were.  The  data  gathered  from  the  Delphi 
panel  relies  on  self-reporting  which  introduces  potential  bias  to  their  input.  The 
generalizability  of  results  may  be  limited.  This  is  because  the  Delphi  panel  that  was  used 
for  this  research  lacked  experts  from  civilian  industries  such  as  the  airlines  and 
commercial  space  booster  programs.  Furthermore,  the  Delphi  Panel  exhibited  a 
diminishing  response  rate  with  each  round,  which  was  expected  as  the  members  closed  in 
on  consensus. 

The  model  also  introduces  several  issues.  One  of  those  issues  was  the  limited 
availability  of  actual  maintenance  processing  times.  Most  of  the  data  that  was  used  was 
notional.  The  model  is  also  resource  unconstrained.  Since  MILePOST  only  modeled  one 
launch  vehicle  per  run,  the  unlimited  number  of  technicians  used  to  perform  maintenance 
is  the  only  resource  that  was  seized  excessively. 


Investigative  Questions  Answered 

At  this  point,  the  original  investigative  questions  have  all  been  answered. 
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1 .  What  generic  functions,  or  sequence  of  actions,  describe  Reusable  Military 
Launch  Vehicle  (RMLV)  maintenance? 

The  functions  are  listed  in  the  modules  of  the  model.  Figure  4  through 

Figure  14  represent  all  of  these  functions  as  well  as  the  sequence  that  describes 

RMLV  maintenance. 


2.  How  do  these  RMLV  maintenance  operation  functions  compare  to  aircraft, 
Expendable  Launch  Vehicle,  and  Intercontinental  Ballistic  Missile  (ICBM) 
main  tenance  operation  functions  ? 

The  maintenance  functions  are  based  mostly  on  large-aircraft  maintenance 
procedures,  with  the  exception  of  the  thennal  protection  system.  The  TPS  flow  is 
is  based  on  Shuttle  maintenance  and  on  data  from  the  B-2’s  stealth  coating 
regeneration. 


3.  What  are  the  RML  V  design  drivers  that  will  influence  RML  V  maintenance 
operations,  and  how  will  these  drivers  affect  the  relationships,  number,  type,  and 
duration  of  RMLV  maintenance  operations  activities? 

Based  on  plausible,  but  notional  input  data,  the  design  drivers  that 
influence  RMLV  maintenance  are  the  number  of  motors  and  the  length  of  time 
that  TPS  maintenance  will  take.  The  verification  tests  above  highlight  these 
drivers. 


4.  How  can  these  RMLV  design  drivers  and  maintenance  operation  activities  be 
incorporated  into  a  discrete-event  simulation  model  that  captures  a  baseline 
RML  V  maintenance  operations  sequence? 

MILePOST,  co-developed  in  this  research  and  by  parallel  work  by 

Stiegelmeier  (2006),  models  an  RMLV  maintenance  operations  sequence.  The 
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model  can  accommodate  design  alternatives  including  engines  quantity  and 
degree  of  modularity,  thermal  protection  system  support,  process  times  and 
distributions,  and  other  maintenance  processes. 
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V.  Conclusions  and  Recommendations 


The  Air  Force  must  better  understand  Reusable  Military  Launch  Vehicle 
maintenance  operations.  This  has  become  increasingly  important  as  the  Air  Force  needs 
a  responsive,  affordable  launch  system  for  space  access.  The  Space  Shuttle  takes  months 
of  preparation  before  a  flight  and  is  expensive.  Current  expendable  launch  vehicles 
require  weeks  to  prepare  for  flight,  with  launch  costs  that  are  deemed  to  be  too  expensive 
by  at  least  an  order  of  magnitude.  Before  the  Air  Force  can  develop  its  own  reusable 
system,  a  better  understanding  of  the  maintenance  process  must  be  understood. 

To  tackle  the  problem,  MILePOST  was  developed.  Experts  in  multiple  fields 
participated  in  a  Delphi  panel  that  formed  the  model.  Multiple  rounds  were  used  to  form 
a  consensus  on  the  maintenance  activities  and  their  relationships. 

The  model  was  verified  through  two  processes.  One  process  was  to  watch  an 
animated  version  of  the  model  in  action  while  each  of  the  8  possible  sample  paths  was 
observed.  The  other  method  that  was  used  was  to  get  a  base  run  time  of  the  model  when 
two,  four,  and  six-motor  design  configurations  were  selected,  and  then  to  change  the 
values  of  each  of  MILePOST’s  three  parallel  maintenance  branches  to  examine  the 
model’s  output  sensitivity.  With  the  two-motor  design,  the  model  indicated  that  the  TPS 
processing  time  was  the  longest  of  the  three  branches.  This  was  proven  when  the  TPS 
branch  time  was  lowered  and  a  lower  overall  time  resulted.  Further,  with  the  two-motor 
design,  lowering  either  of  the  remaining  two  maintenance  branches  to  zero  had  no  effect 
on  the  regeneration  time.  When  the  processing  time  was  raised  high  enough  in  the  other 
two  branches,  they  became  part  of  the  critical  path. 
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Considering  the  four-motor  design,  the  motor  maintenance  branch  becomes  the 
longest  of  the  three  maintenance  branches.  This  was  observed  when  lowering  the  motor 
branch  time  lowered  the  entire  model’s  time.  Lowering  either  of  the  other  branches  had 
no  effect  on  the  model’s  reprocessing  time.  Only  when  the  other  maintenance  and 
thennal  protection  system  maintenance  branches  were  raised  significantly  did  they 
become  part  of  the  critical  path. 

Conclusions  of  Research 

MILePOST  pointed  out  that  effort  can  be  directed  to  different  paths  based  on  the 
number  of  motors  used  in  an  RMLV  design.  With  two  motors,  the  thermal  protection 
system  was  identified  as  the  process  where  increased  efficiency  would  impact  the  overall 
processing  time.  When  more  than  two  motors  are  used,  MILePOST  indicated  that  the 
motor  maintenance  process  impacted  the  overall  maintenance  time  the  most.  Efforts  to 
lower  the  overall  regeneration  time  would  have  been  best  spent  on  improving  motor  ease 
of  maintenance  or  its  reliability. 

Significance  of  Research 

This  research  will  allow  the  Air  Force  to  evaluate  maintenance  strategies  of  an 
RMLV  prior  to  developing  the  system.  This  will  ensure  that  attention  is  put  into  the 
areas  that  will  provide  the  largest  payback  in  terms  of  overall  regeneration  time.  The 
default  input  values  of  this  model  are  plausible  but  notional,  and  are  based  on  aircraft  and 
Shuttle  maintenance  experience.  Further,  the  proportion  of  total  regeneration  time  that  a 
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vehicle  spends  in  maintenance  with  MILePOST  is  similar  to  the  proportion  of  time  that 
the  Space  Shuttle  spends  in  maintenance. 

Recommendations  for  Action 

AFRL  should  use  MILePOST  to  aid  in  the  design  of  the  RMLV.  Further, 
attention  should  be  paid  to  the  processes  that  will  provide  the  largest  impact  on  overall 
time  reduction  for  the  RMLV.  Details  and  data  should  be  incorporated  as  feasible  into 
this  model. 

Thermal  protection  system  maintenance  after  each  flight  should  be  limited  or 
eliminated  if  motor  maintenance  time  can  be  reduced.  Aircraft  maintenance  practices 
should  be  incorporated  in  RMLV  maintenance  strategies  wherever  possible.  Health 
monitoring  systems  analogous  to  the  F-22’s  on-board  self  diagnosis  capability  could  help 
reduce  maintenance  time  between  flights.  Finally,  the  Space  Shuttle’s  depot 
maintenance  philosophy  will  not  work  for  the  operations  tempos  desired  in  an  RMLV. 

Recommendations  for  Future  Research 

1 .  The  model  should  be  expanded  to  include  post- flight  operations.  This  will  make 
MILePOST’s  ground  regeneration  modeling  complete,  by  capturing  all  significant 
regeneration  activities  from  vehicle  touch-down  to  launch  for  the  next  flight. 

2.  The  model  should  also  be  populated  with  better  quality  data  as  it  becomes 
available.  This  will  allow  the  model  to  better  represent  the  ground  operations 
cycle  time. 
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3.  Current  aircraft  sortie  generation  philosophies  should  be  compared  to  proposed 
RMLV  operations. 

4.  The  sensitivity  of  resource  levels  and  capabilities  versus  sortie  production,  should 
be  examined.  How  would  the  number  and  skills  of  maintenance  personnel  affect 
sortie  production?  MILePOST  now  assumes  that  all  technicians  are  qualified  for 
all  jobs  and  that  these  personnel  are  unlimited  in  quantity.  It  would  be  of  interest 
to  the  Air  Force  to  know  what  minimal  manning  is,  to  achieve  sortie  generation 
rates. 

Summary 

MILePOST  is  capable  of  modeling  a  RMLV  to  the  level  of  detail  that  allows 
designers  to  identify  areas  of  improvement  in  maintenance.  Further,  the  Air  Force  can 
identify  where  money  should  be  spent  in  order  to  improve  the  processing  time  of  an 
RMLV.  MILePOST  is  capable  of  being  updated  and  expanded  as  data  becomes  available 
or  as  plans  are  finalized. 
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Appendix  A.  Delphi  Panel  Visio  Document 


Introduction 

Diagram  Notes 

The  following  pages  contain  a  conceptual  flow  diagram  that  represents  a  more  detailed  simulation  model  that  is  being  developed 
The  actual  simulation  model  is  being  developed  in  Arena  software 

This  diagram  includes  only  maintenance,  integration,  and  launch  pad  operations.  Other  portions  of  RMLV  operations  (post-flight 
recovery  and  in-flight  operations)  are  not  included. 

The  diagram  does  not  include  many  support  processes  that  go  on  outside  of  the  critical  path.  Only  major  regeneration  events  are 
included. 


No  extensive  scheduled  maintenance  activities  (depot  maintenance  or  phase/periodic  inspection)  are  depicted  in  this  diagram 


Assumptions 

1.  Unmanned  vehicle 

2.  Reusable  first  stage  (Space  operations  vehicle  (SOV))  and  expendable  upper  stage. 

3.  Vertical  takeoff,  horizontal  landing  (VTHL) 

4.  Vehicle  will  incorporate  integrated  vehicle  health  management  (IVHM)  capability. 

5.  Vehicle  maintenance  will  be  more  similar  to  current  aircraft  maintenance  practices 
than  shuttle  maintenance  practices. 

6.  Liquid  propellants. 


□  Create  Module:  The  starting  point  of  the 
entire  diagram. 


Module  Key 

Batch  Module:  Indicates  the  end  of  parallel 
processes  All  processes  prior  to  this 
module  must  be  complete  before  the  next 
process  can  occur. 


□  Process  Module:  An  action  occurs  that 
takes  a  certain  amount  of  time. 


_  Submodel  Module:  Used  to  provide  a  clear 

J  ^  Submodel  1 1  overview  of  the  entire  diagram  Each 

submodel  is  a  grouping  of  other  modules, 
for  organization  purposes. 


Decision  Module  A  decision  is  made  that 
determines  the  route  to  follow. 


□  Separate  Module:  Indicates  the  start  of 
parallel  processes  The  diagram  path 
“splits"  at  this  point,  and  the  processes  in 
each  path  occur  simultaneously. 


Off-page  reference:  Indicates  where  the 
path  connects  on  a  separate  page. 


□ 


Dispose  Module:  The  ending  point  of  the 
entire  diagram 
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RMLV  Ground  Operations  Conceptual  Flow 
Top-level  Diagram  View 


The  ground  operations  cycle  of  the  RMLV  is  composed  of  three  main  segments,  or  submodels.  These  submodels  are: 
Maintenance,  which  includes  all  mechanical  and  electrical  operations  that  are  required  to  maintain  the  systems'  flight 
capabilities;  Integration,  which  involves  the  assembly  of  vehicle  stages  and  mating  of  the  payload;  and  Launch  Pad 
Operations,  which  involves  launch  pad  activities.  This  is  the  top-level  view  of  the  entire  diagram,  and  some  of  these 
submodels  contain  submodels  within  them 


^  Maintenance 


^  Integration 


^  Launch  Pad  Operations 


The  maintenance  flow  is 
shown  on  pages  3-8. 


The  integration  flow  is 
shown  on  pages  9-1 1 . 


Launch  pad  operations  are 
shown  on  pages  12-14. 


02 


54 


Maintenance  Flow  Overview 


Mission  returns  from 
Post-Flight  operations 


At  this  point,  the 
RMLV  is  released 
for  integration  or 
intermediate 
storage. 


Msscn  -ins 


Initial  Maint.  |— Diagnostic^ - Maintenance - -  TPSMant  |. - Final  Maintlnsp.' 
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Initial  Maintenance 


04 
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Diagnostics 


05 
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Thermal  Protection  System 
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Final  Maintenance  Inspection 
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Appendix  B.  Delphi  Panel  Round  One  Comments 


Delphi  Panel  First  Round  Comments  by  page  of  Visio  Document  that  the  panel  were 
given.  Our  responses  are  italicized. 

PAGE  1 
PAGE  2 

#9  You  may  want  to  consider  adding  an  in-parallel  flow  for  post-flight  engineering 
assessments,  mission  call-up,  preflight  flight  engineering,  major  flight  readiness  reviews, 
and  ultimately  authority/authorization  to  launch. 

PAGE  3 

#9  The  TPS  Maintenance  can  probably  be  shown  as  being  in  parallel  with  Maintenance. 
At  least  some  of  the  TPS  maintenance  activities  will  likely  be  doable  in  parallel  with 
other  maintenance  activities. 

TPS  maintenance  is  now  shown  in  parallel.  The  TPS  was  initially  shown  to  be  a 
serial  process  after  maintenance  in  the  hopes  that  an  accelerated  maintenance 
cycle  would  allow  the  surface  to  be  worked  on  after  maintenance  is  complete  to 
prevent  re-damaging  the  treatment.  However,  scheduling  the  TPS  and 
main  tenance  work  could  result  in  most  of  the  TPS  work  being  done  in  parallel 
without  slowing  maintenance  or  creating  future  obstacles. 

#5  Use  F-35  IVHM  instead  of  B2  and  F22. 

The  F-35  system  is  the  newest  system  available.  Actual  data  is  unavailable. 
However,  the  capabilities  that  go  with  the  system  outweighs  the  data  that  was 
available  on  IVHM  with  the  B-2.  The  F-35  information  and  capabilities  will  be 
used  from  here  on. 

PAGE  4 

#2  For  the  Initial  Maintenance  Module,  is  the  RMLV  on  a  trailer,  or  towed  on  its  own 
landing  gear?  Either  way,  you  probably  need  a  step  to  check  that  the  trailer  or  RMLV  is 
safe  to  tow  (i.e.  brake  accumulator  pressure  within  limits,  etc.) 

The  RML  V  will  be  towed  on  its  own  gear.  The  flow  is  modeled  after  a  B-2 
maintenance  cycle.  The  safing  process  is  part  of  the  connection  phase.  Both  the 
towing  vehicle  and  the  RMLV  will  be  safed  during  the  Post-flight  portion  of  the 
overall  model.  It  is  not  part  of  the  scope  of  this  model  and  will  be  handled  by  a 
separate  treatment. 

#9  Add  a  Process  block  prior  to  “Connect  to  SOV”  for  post  landing  safing  and 
inspections  on  the  runway  or  ramp.  Recommend  that  the  vehicle  be  designed  such  that  it 
can  taxi  off  the  active  runway  prior  to  shutting  down. 

Post-flight  activities  are  not  handled  in  this  model. 
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PAGE  5 

#2  Between  the  Diagnostics  and  Maintenance  modules,  what  happens  to  the  data 
downloaded  from  the  maintenance  reporter?  If  there  are  fault  codes,  they  need  to  be 
addressed. 

The  Diagnostics  module  drives  the  Maintenance  requirements.  This  allows 
maintenance  activities  to  be  planned  to  minimize  the  maintenance  flow  time. 

#9  Depending  upon  the  vehicle  design,  some  of  the  diagnostic  activities  can  be 
accomplished  in  parallel  rather  than  in  the  serial  fashion  shown.  In  particular,  the 
sensor/experiment  activity  should  be  designed  such  that  it  can  be  worked  on  in  parallel 
with  avionics  and  flight  controls. 

You  are  correct.  It  has  been  changed  to  reflect  your  suggestion. 

#14  “Interrogate  Maintenance  reporter”  what  exactly  does  this  mean?  Are  you 
downloading  information  from  the  IVHM  system  prior  to  checking  the  rest  of  the 
systems.  After  a  flight,  there  should  be  some  kind  of  data  download  -  if  that's  what  this 
event  is  -  then  great,  if  not,  then  an  event  including  data  download/diagnostics  would  be 
important  to  include  here. 

This  module  is  mostly  a  space  holder  that  allows  maintenance  to  take  time  organizing  the 
information  gathered  from  the  IVHM  into  a  logical  flow  of  maintenance  tasks. 

Optimally,  the  RMLV  will  broadcast  its  health,  operating  parameters,  telemetry,  and 
such  during  flight-completely  eliminating  the  need  for  time  to  be  spent  at  the 
“Interrogate  Maintenance  reporter  ”  block. 

#14  Further  explain  Avionics  Testing  and  Flight  Controls.  I  agree  they  should  be 
separate  events,  but  your  descriptions  sound  very  similar. 

The  Avionics  Testing  is  a  check  to  ensure  that  the  software  has  reacted  in  an 
expected  manner.  There  are  no  pilots  to  let  us  know  that  it  was  sluggish  to  the 
right.  The  Flight  Controls  block  is  a  physical  check  to  ensure  that  limit  switches 
are  functioning  and  that  the  controls  are  doing  what  the  software  thinks  they  are. 

PAGE  6 

#9  I  would  like  to  see  more  detailed  infonnation  for  the  process  blocks  titled  “Pre¬ 
planned  maintenance”  and  “TCTO  Actions.”  Perhaps  a  notes  page  describing  what  is 
thought  to  be  in  these  blocks. 

These  blocks  are  residue  from  my  flight  line  experience.  The  IVHM  should  render 
both  blocks  obsolete  as  it  will  report  ALL  maintenance  due.  We  are  trying  to 
move  away  from  time  based  maintenance  and  into  capability  based  maintenance. 

#9  Along  with  Pre-Planned  Maintenance  and  TCTO  Actions,  there  needs  to  be  a  process 
block  for  unplanned  maintenance  activities.  This  will  likely  be  a  combination  of  in¬ 
parallel  and  serial  work. 

Unplanned  maintenance  will  show  up  in  the  distributions  of  other  maintenance 
tasks  and  can ’t  be  planned  into  the  model  as  they  can  happen  at  any  point. 
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#9  Some  landing  gear  activities  can  probably  be  performed  in  parallel  with  engine  work 
and  other  pre-planned/TCTO  maintenance  activities. 

That  is  correct  and  has  been  changed  on  the  model 
#14  -What  is  the  difference  between  SECOND  STAGE  MECH.  CONNECTION  and 
SECOND  STAGE  DETACH  INSTALLATION? 

“Second  Stage  Mech  Connection  ”  is  the  physical  connection  that  creates  a 
connection  point  to  the  RML  V.  The  “Second  Stage  Detach  Installation  ”  has  been 
changed  to  “Second  Stage  Detachment  mechanism  ”  and  refers  to  the  ordnance  or 
electro-mechanical  locking  mechanism.  This  should  clear  it  up  a  little. 

#13  Modular  engine  replacement  -  Would  the  output  from  this  need  to  go  into  the 
engine  check  procedures  after  installation  or  are  the  controls  and  linkages  all  part  of  the 
modular  engine  design? 

The  engine  would  be  completely  modular  if  this  path  is  followed.  This  capability 
is  already  being  developed  for  the  NK-33. 

#5  TPS  should  be  addressed  earlier  as  IVHM  may  incorporate  early  assessment 
capabilities. 

It  is  and  it  will. 

#5  Combine  TCTO  Actions  and  Pre-planned  Maintenance  if  prognostic  capabilities 
exist. 

The  limits  of  the  prognostic  capabilities  have  not  been  fully  explored.  Rather  than 
create  a  model  that  will  only  work  with  really  good  IVHM,  blocks  have  been 
added  that  can  have  distributions  tuned  based  on  actual  capabilities.  If  the  IVHM 
can  report  all  maintenance  tasks,  the  time  for  these  two  blocks  will  be  zeroed  out. 

PAGE  7 

#9  The  TPS  work  shown  on  this  page  should  be  moved  to  page  6  and  shown  in  parallel 
with  the  other  maintenance  activities. 

Good  catch.  It  is  now  in  parallel  but  remains  on  it’s  own  page  as  it  gets  more 
difficult  to  follow  the  “eye  chart”  that  is  maintenance. 

#14  -you  mentioned  custom  manufacturing  on  p.6  -  but  then  do  not  have  it  on  this  page. 

Is  it  included  in  TILE  AND  BLANKET  R&R?  If  so,  I  think  this  block  needs  to  be 
expanded  to  cover  more  detail. 

Yes  it  does.  The  block  has  been  explained  on  the  model. 

#5  Move  TPS  into  a  parallel  process  as  much  as  possible. 

TPS  has  been  moved  in  parallel  with  most  of  main  tenance. 

PAGE  8 

#9  An  alternative  to  the  serial  work  to  perform  “Waterproof  TPS”  being  performed  all  at 
the  end  would  be  to  perform  the  waterproofing  work  incrementally  as  you  go.  This  may 
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result  in  a  quicker  ground  turnaround.  However,  if  you  can  come  up  with  a  processing 
station/system  that  allows  the  entire  vehicle  to  be  quickly  waterproofed  (e.g.  the  way 
deicing  is  done  on  aircraft)  then  that  would  probably  be  best. 

TPS  waterproofing  will  have  more  in  common  with  de-icing  than  any  of  the  more 
common  methods  in  use.  A  drive-through  spray  section  could  suffice. 

#9  This  page  shows  a  storage  option  for  the  first  stage  SOV.  On  subsequent  pages,  it 
may  be  beneficial  to  show  a  similar  storage/hold  option  for  the  integrated  SOV/2nd  stage 
as  well  as  the  SOV/2nd  Stage/Payload.  These  options  would  allow  you  to  minimize  the 
time  between  mission  call-up  and  launch.  The  questions  then  become  how  long  can  you 
hold  in  these  various  configurations  and  what  needs  to  be  done  to  continue  subsequent 
processing  towards  launch. 

We  have  now  added  similar  storage  options  for  the  integrated  SOV/2nd  stage  as 
well  as  the  SOV/2nd  Stage/Payload. 

#14  -WATERPROOF  TPS  -  this  is  an  assumption  that  the  TPS  requires  waterproofing 
Currently,  TPS  requires  waterproofing.  If  waterproofing  is  not  required  in  the 
future,  this  section  could  be  removed  or  bypassed  or  set  to  a  time  of  zero. 

#14  -REINSPECT  -  is  there  a  time  that  this  should  not  occur?  If  no  reinspection  should 
take  place  what  is  the  time  limit? 

A  reinspection,  at  least  to  some  extent,  will  almost  always  occur  after  storage.  In 
the  Air  Force,  an  aircraft  preflight  inspection  is  good  for  24,  48,  or  72  hours, 
depending  upon  MAJCOM  instructions  or  airframe  specific  requirements.  We 
are  assuming  RML  V  maintenance  will  follow  similar  guidelines. 

#14  -MOVE  TO  STORAGE  FACILITY  -  this  question  is  confusing  because  your  'yes' 
and  'no'  both  lead  to  storage  facility  options.  Perhaps  a  rephrasing  of  the  question  would 
help. 

We  have  now  simplified  this  section.  Hopefully  it  is  no  longer  confusing. 

#13  Is  the  Re-inspect  decision  block  and  Post  Storage  re-inspect  significantly  different 
between  the  two  storage  areas? 

No,  they  would  have  been  similar.  We  have  simplified  this  section  so  that  there  is 
only  one  re-inspection  module  entitled  “Re-accomplish  Preflight.  ” 

PAGE  9 
PAGE  10 

#4  Can  the  upper  stage  and  payload  be  mated  together  while  the  SOV  is  going  through 
it's  turnaround  maintenance  then  mate  the  upper  stage  and  payload  to  the  SOV? 

We  have  now  added  a  preintegration  section,  occurring  in  parallel  with  SOV 
maintenance  operations. 
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#14  PREP  CLEAN  ROOM  -  this  is  good.  Don’t  you  have  to  transport  the 
vehicle/payload  TO  the  clean  room?  This  could  be  quite  a  process,  (you  also  have  this 
option  listed  on  p.  11  and  p.  12) 

We  are  assuming  that  the  clean  room  is  either  at  the  integration  facility  or  at  the 
launch  pad. 

#13  Seems  as  though  some  combination  of  the  blocks  could  happen  here  as  well.  Seems 
to  me  that  the  only  difference  from  the  pre-integration  of  the  payload  path  and  the  no  pre¬ 
integration  path  is  the  fact  that  the  payload  is  already  in  the  second  stage  on  the  upper 
flow.  Would  there  be  a  significant  change  in  these  distributions  for  this  reason? 

There  may  not  be  a  significant  change  in  the  distributions,  so  some  of  the  modules 
could  be  combined.  We  left  them  separate  to  keep  from  confusing  people.  We 
will  combine  if  we  get  more  similar  feedback. 

#13  Also,  wouldn’t  there  be  a  1st  and  2nd  stage  integration  check  for  the  pre-integration 
flow?  I  think  there  may  be  some  differences  hare  since  there  may  be  some  integration 
checks  to  the  installed  payload  if  the  payload  is  already  on  the  2nd  stage. 

This  is  taken  care  of  with  the  “Entire  vehicle  integration  check”  that  takes  place 
after  the  payload  and  2nd  stage  are  attached  to  the  SOV.  2nd  stage  to  payload 
integration  check  is  covered  in  the  preintegration  section. 

#13  Pre-integration  during  decision  on  waiting  for  launch  -  Why  was  the  pre-integration 
process  not  included  on  the  flow  after  maintenance  inspection?  Are  you  assuming  that  if 
the  payload  is  not  pre-integrated  and  the  need  for  launch  arises  that  the  payload  will 
“Only”  be  processed  on  the  No  Pre-integration  path?  This  is  OK  and  you  mention  that 
the  pre-integration  takes  place  to  save  time  (Waiting  for  launch  requirement  and 
assuming  the  mission  ie  payload  requirement  is  known).  This  although  precludes  the 
time  it  takes  (Value-Added  time?)  to  pre-integrate  the  payload  into  the  2nd  stage.  My 
thought  was  that  this  may  need  to  be  included  if  a  launch  requirement  came  before  the 
payload  was  pre-integrated.  Since  the  launch  requirement  decision  is  not  modeled  you 
could  assume  that  you  know  that  you  have  sufficient  time  to  pre-integrate  the  payload 
before  the  decision  to  launch  comes.  I  know  this  is  long  winded  and  I’m  not  sure  if 
this/these  process  should  be  modeled.  I  do  think  you  should  address  these  to  see  if  they 
should  be  included. 

We  have  now  added  a  preintegration  section  in  the  model,  occurring  in  parallel 
with  SOV  maintenance.  If  preintegration  does  not  take  place,  then  it  is  assumed 
that  integration  takes  place  in  the  traditional  way:  1st  stage  to  2nd  stage  and  then 
payload. 

PAGE  11 

#4  Very  busy  -  can  it  be  broken  out?  Bottom  process  -  you  are  loading  hypergolics 
before  ordnance  install  - 1  believe  that  the  fuel  loading  should  be  the  last  thing  done  - 
after  ordnance  install.  Recommend  doing  all  fueling  on  pad  as  last  and  final  step  -  you 
don’t  want  to  move  anything  with  fuels  loaded.  Also  -  the  pad/payload  is  purged  with 
nitrogen  (inert  gas)  prior  to  fuel  load  -  nitrogen  atmosphere  is  unfriendly  to  humans  :-) 
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Hopefully  this  page  is  easier  to  follow  now.  We  have  been  told  by  other  sources 
that  hypergolics  can  be  loaded  before  the  vehicle  gets  to  the  pad.  Shuttle 
hypergolics  are  loaded  on  the  pad  but  still  days  before  launch.  Should 
hypergolics  really  be  moved  to  last  step?  Is  hypergolic  loading  prior  to  arrival  at 
launch  pad  a  possibility? 

We  ’re  looking  for  more  info  on  the  nitrogen  gas  purge  prior  to  fuel  load.  Is  this 
always  done,  regardless  of  the  propellant  type?  Is  it  done  for  cryogenics  only? 
What  does  it  involve?  Is  it  done  only  once  before  propellant  loading,  or  is  it  done 
several  times,  perhaps  at  the  beginning  and  then  before  a  switch  is  made  to  a 
different  type  of  propellant? 

#13  Very  thorough  but  should  there  be  a  “Clean  Room”  on  the  “Install  Payload  Now 
Vertical  integration”  path? 

Yes,  good  catch,  but  now  OBE  as  this  path  was  removed. 

#11  Why  are  pages  10  and  1 1  so  different?  All  tasks  must  be  completed  wether  on  pad 
or  off... 


The  main  reason  these  pages  look  so  different  is  that  off-pad  integration  could  be 
done  horizontally  or  vertically,  while  on-pad  integration  will  obviously  be  done 
vertically.  Page  11  accounts  for  both  the  horizontal  or  vertical  possibilities.  In 
addition,  page  11  includes  the  option  of  installing  the  payload  in  the  integration 
facility  or  waiting  to  install  the  payload  at  the  pad  (Delta  IV).  Page  11  also 
includes  the  option  to  do  several  other  activities  in  the  integration  facility ,  like 
install  ordnance.  For  on-pad  integration,  these  other  activities  are  accounted  for 
on  page  13. 

PAGE  12 

#5  The  “no”  option  for  “Install  payload  on  pad?”  should  join  the  other  path  before  the 
“entire  vehicle  integration  check”  module.  Always  perform  integration  check  before 
fueling. 

If  the  payload  was  installed  previously  on  page  11,  then  the  integration  check  was 
already  done,  in  the  integration  facility  before  the  vehicle  got  to  the  pad,  so  the 
integration  check  still  gets  done  before  refueling. 

PAGE  13 

#4  Umbilical  connections.  These  should  be  KISS  -  keep  it  simple  stupid.  Connections 
on  the  Titan  IV  were  numerous  and  had  connections  on  almost  every  stage.  These 
connections  get  caught  on  the  tower  when  you  move  it  as  well  -  this  I  know  from 
experience.  Use  a  race  way  to  carry  all  connections  on  the  vehicle  to  one  or  two 
concentrated  connection  points  (similar  to  MMIII)  with  electrical,  fuel,  comm,  etc. 
connections. 

Agreed — umbilical  connections  should  be  as  simple  and  as  few  as  possible.  Any 
recommendations  for  simplifying  the  umbilical  connection  section  on  page  13, 
from  a  modeling  perspective? 
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PAGE  14 

#4  Another  note  -  are  you  going  to  use  squibbed  batteries?  If  you  blow  the  battery  and 
don’t  launch  then  you  have  to  R&R  the  batteries  =  lost  time. 

We  are  not  sure  about  battery  specifics.  The  probability  of  a  scrubbed  launch 
(and  other  similar  pass/fail  scenarios)  will  be  added  to  future  iterations  of  the 
simulation  program. 

We  are  interested  in  any  perspectives  or  suggestions  concerning  propellant 
loading  sequence  or  parallel  propellant  loading  operations. 
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Appendix  C.  Delphi  Panel  Round  Two  Comments 


Delphi  Panel  second  round  responses  by  Visio  page 

PAGE  1 
#19 

Need  to  change  SOV  to  ORS  or  HLV  (hybrid  launch  vehicle).  The  SOV  is  a  very 
narrow  interpretation  of  a  solution  which  is  no  longer  part  of  the  ARES  plan. 

All  references  to  SOV  have  been  changed  to  HLV. 


#9 

What  are  your  assumptions  regarding  the  electrical  power  source  for  the  reusable 
first  stage  during  flight.  Will  it  be  powered  by  on-board  batteries  or  fuel  cells? 
Depending  upon  the  choice,  additional  blocks  should  be  shown  on  page  6  for  the 
maintenance  of  the  electrical  power  system.  If  batteries,  will  they  be  reusable  or 
require  R&R  between  missions? 

At  this  point,  it  is  my  assumption  that  a  generator  from  the  main  engine  will 
supply  power  during  the  powered  lift  phase  and  batteries  will  supply  power 
during  space  operations  and  return.  These  batteries,  at  present  are  reusable. 

The  model  now  reflects  battery  maintenance/charging  and  a  removal  block. 

What  are  your  assumptions  regarding  power  for  actuating  flight  control  surfaces, 
landing  gear  deployment,  steering,  and  brakes  on  the  reusable  first  stage?  Will 
they  be  powered  by  a  hydraulic  system  or  electrical  servo  actuators?  If  a 
hydraulic  system  is  used,  what  will  provide  the  power  source  to  pressurize  the 
hydraulic  fluid? 

Control  surfaces  will  be  powered  by  either  electronic  controls  or  a  hydraulic- 
electric  hybrid.  Fluid  would  be  pressurized  locally.  There  will  be  no  main 
hydraulic  pump. 

Will  the  reusable  first  stage  have  a  drag-chute  for  landing? 

The  drag  chute,  among  other  things,  is  one  of  those  things  that  I  have  a  lot  of 
experience  with  but  still  omitted  them  accidentally.  The  model  now  shows  chute 
installation.  The  removal  would  be  during  post-flight  operations  usually  at  the 
end  of  the  runway. 

What  type  of  system  will  be  used  to  manage  waste  heat  from  avionics  on  the 
reusable  first  stage? 

The  waste  heat  during  the  powered  portion  of  the  launch  will  be  handled  by  heat 
exchangers  in  the  main  fuel  tank. 
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Acronym  List:  TPS  and  R&R  should  be  added  to  the  acronym  list. 


#2 

I  read  the  comments  from  the  first  round  and  am  happy  with  the  responses  to  my 
questions.  I  don’t  have  enough  system  knowledge  to  provide  any  more  input  on 
the  highlighted  comments.  The  revised  model  appears  to  be  logical  to  me. 

PAGE  2 
#7 

Instead  of  "Initial  maint."  call  it  "Maintenance  Preparation"  since  there  is  no 
actual  maintenance  happening  in  this  submodel. 

Done. 

PAGE  3 
#13 

Will  there  be  a  clean  room  prep  requirement  for  Pre-integration? 

We  have  now  added  an  option  for  clean  room  prep  on  the  prein  tegration  page. 

PAGE  4 
#13 

It  seems  like  the  “Post  Flight”  checks  and  safeing  would  be  an  important  process 
to  capture.  If  the  “Post  Flight”  process  was  not  part  of  the  initial  scope  of  your 
thesis  could  it  be  added  or  at  least  commented  on  in  your  report  for  future  efforts? 
Are  there  other  known  areas  that  would  need  to  be  worked  in  future  efforts  to 
capture  them  as  well? 

There  is  a  GRP  (mini-thesis)  that  is  in  the  pipeline  that  will  capture  the  post-flight 
portion  of  the  overall  model.  It  will  be  constructed  so  as  to  fit  with  the  model  we 
are  developing  now. 

PAGE  5 
PAGE  6 

#14 

It  is  difficult  to  account  for  unplanned  maintenance.  Is  there  a  way  you  can 
account  for  error  your  analysis  or  possibly  a  range  of  times  so  that  you  have  the 
best  and  worst  case  scenario?  Or  is  there  a  way  to  insert  into  your  model  that  an 
engine  will  need  to  be  replaced  unexpectedly? 

Yes.  Arena  software  allows  for  distributions  and  anomalies  that  will  account  for 
catastrophic  failures  as  well  as  unplanned  maintenance  events.  These  numbers 
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will  be  able  to  be  tuned  as  maintenance  and  reliability  data  is  collected  on  the 
compon  en  ts  of  the  RML  V. 


#7 

For  the  "R&R  LRUs"  and  "Pre-planned  maint"  modules  will  the  most 
maintenance  intensive  subsytems  be  considered(RCS/OMS,  Power,  actuation, 
etc)?  Are  these  details  to  be  worked  out  later  or  would  these  systems  be 
considered  only  as  depot  maintenance  and  hence  not  in  the  model? 

Most  maintenance  actions  to  be  performed  on  the  craft  itself  will  be  of  the  box 
swap  variety.  Back  shops  will  be  utilized  to  perform  most  repairs. 

#13 

Now  that  this  [maintenance  and  TPS  maintenance]  has  been  split  up  as  a  parallel 
maintenance  (As  they  should  be)  there  will  probably  be  interactions  between 
these  two  sub-models  that  will  impact  the  processing  times.  For  example,  if 
maintenance  of  engines,  LRU’s,  landing  gear,  etc  is  still  being  done,  is  it 
understood  how  and  where  (in  the  process)  these  processes  would  impact  the  TSP 
processing?  A  major  portion  of  the  TPS  could  be  accomplished  in  parallel  but  I 
believe  that  there  will  be  open  access  panels,  gear  door  seals,  etc.  that  will  require 
the  final  close  out  for  the  TPS  to  wait  until  after  the  maintenance  has  reached  a 
certain  point  in  its  process. 

The  model  has  been  corrected  to  show  two  points  at  which  the  TPS  system  is 
repaired.  Notice  that  page  6  has  two  points  that  point  to  “D  ”  of  page  7.  The 
actual  model  (as  opposed  to  this  Visio  representation)  will  allow  us  to  track 
whether  or  not  maintenance  actions  would  impact  the  TPS  system.  Thank  you  for 
pointing  out  that  I  had  originally  had  the  engine  portion  of  maintenance  skip  the 
TPS  system.  This  would  have  allowed  the  TPS  to  be  finalized  while  the  engines, 
TCTO  items,  and  landing  gear  were  possible  still  being  worked  on.  Further, 
these  are  the  type  on  interactions  that  it  will  be  vital  that  we  maintain  in  the 
Arena  model. 

PAGE  7 
#7 

What  is  considered  to  be  sealant?  RTV?  Gap  fillers  and  thermal  barriers  should 
also  be  considered,  these  can  require  a  lot  manhours. 

I’ve  included  the  fillers  and  barriers  in  the  model.  Advances  in  TPS  protection 
will  help  lower  the  manhours  required  and  the  frequency  of  repair.  Having  said 
that,  I’ve  included  the  two  modules  you  mention  in  case  advances  are  slow  in 
coming. 

PAGE  8 
#13 
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General  comment/clarification.  [The  below  are]  not  recommended  changes 
unless  the  following  comment  is  not  what  was  intended  in  the  model. 

The  way  this  is  modeled  I  assume  that  vehicles  are  maintained  in  a  hanger  and 
maintenance  equipment  is  brought  to  the  vehicle  (As  opposed  to  how  it  is  done  in 
the  shuttle  processing  facilities).  Storage  of  the  vehicle  waiting  for  a  mission  will 
be  in  the  place  where  the  vehicle  was  maintained  so  no  transport  time  is  required. 

If  re-inspection  identifies  additional  maintenance,  you  would  need  another 
process  module  with  a  preceding  decision  module  to  account  for  this  occurrence. 

For  this  effort,  we  are  assuming  that  any  additional  maintenance  required  will  be 
captured  in  the  Reinspection  module.  We  have  changed  the  title  of  these  modules 
to  'Reinspection  and  additional  mx.  ”  There  is  obviously  more  detail  that  could 
be  included  here,  but  this  will  be  fleshed  out  later. 

PAGE  9 
PAGE  10 

#14 

I  think  you  should  keep  them  separate  {Two  modules  that  we  separated  to  prevent 
confusion}.  It’s  possible  that  a  buyer  that  wants  to  launch  a  payload  could 
provide  a  second  stage  with  the  payload  already  integrated.  This  option  could 
account  for  that.  Depending  on  your  payload,  integrating  it  on  the  pad  will  add 
the  task  of  moving  the  payload  to  the  pad  and  all  the  logistics  that  go  along  with 
that. 

#13 

The  two  separate  vehicle  erection  process  flows  still  seems  redundant.  If  the  Pre¬ 
integration  decision  module  is  moved  to  before  the  1st,  2nd  stage  integration  check 
(If  this  is  even  needed  since  it  is  done  again  at  the  vehicle  integration  check) 
process,  then  the  affirmative  path  is  directly  to  the  Entire  vehicle  integration 
check.  The  negative  path  will  be  to  integrate  the  payload  prior  to  the  Entire 
vehicle  integration  check. 

Disagreement  here  between  #13  and  #14.  We  realize  that  either  option  is 
feasible,  but  we  will  leave  the  model  as  is,  since  having  two  separate  paths  with 
similar  modules  will  not  affect  model  output.  The  only  real  disadvantage  to 
having  two  separate  paths  is  more  clutter  in  the  model.  The  processing  time 
required  to  leave  both  options  available  is  minimal  as  is  the  extra  work  in 
including  them.  The  reality  will  determine  the  direction  the  model  is  used. 


PAGE  11 
#4 
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There  is  usually  some  type  of  cooled  air  supplied  to  the  payload/vehicle  while  it 
sits  on  the  pad.  It's  usually  air  until  the  fueling  is  done  and  then  they  switch  to 
nitrogen.  The  fuel  used  was  cryo  so  it  may  be  that  it  is  not  needed  for  the 
hypergolics.  The  shuttle  hypergolics  on  the  shuttle  are  only  a  fraction  of  the  total 
fuel.  Also  -  we  transport  the  PSREs  with  hypergolics  in  them  but  it's  a  pain. 

Transporting  a  fully  fueled  vehicle  to  the  pad  is  a  BAD  idea  -  to  much  risk.  What 
about  the  added  weight  of  the  fuel  -  will  that  make  your  transporter  requirements 
unattainable. 

Supplying  conditioned  air/nitrogen  is  something  that  will  happen  continuously  as 
other  events  on  the  pad  are  taking  place.  To  supply  the  air  or  nitrogen, 
hoses/umbilicals  will  need  to  be  attached,  and  we  have  accounted  for  that  in  the 
“Attach payload  handling  equipment”  and  umbilical  connection  modules. 

Hopefully  we  ’ll  avoid  hypergolics  altogether,  but  just  in  case,  we ’ve  left  the 
option  to  include  them  and  to  load  them  either  in  the  integration  facility  or  on  the 
pad. 

The  only  fuel  on  the  vehicle  during  transport  would  be  hypergolics,  if  any;  and 
the  amount  of  hypergolics  would  likely  be  quite  small. 


#13 

You  have  a  vertical  and  a  horizontal  process  combining  into  the  1st  &  2nd  stage 
integration  check.  Should  the  down  stream  process  be  considered  different  for 
payload  integration  in  the  vertical  or  horizontal  configuration?  These  were 
different  paths  on  the  first  iteration  but  now  they  are  combined  paths  although 
there  was  no  mention  of  this  in  the  comments  for  this  page. 

Yes,  they  were  different  paths  on  the  first  iteration,  but  they  were  very  similar. 

The  only  difference  between  the  two  downstream  options  in  the  first  iteration  was 
that  the  vertical  integration  path  had  a  module  entitled  “ Lift  and  align  payload,  ” 
and  the  horizontal  integration  path  had  a  corresponding  module  entitled 
“Position  and  align  payload.  ”  Since  these  two  paths  were  so  similar,  we 
combined  them,  and  assumed  that  the  obvious  differences  between  vertical  and 
horizontal  payload  integration  would  be  captured  in  the  distributions  that  are  put 
into  Arena. 

Need  to  extend  the  “No”  path  for  Load  Hypergols  Decision  module  around  Load 
Hypergolic  fuel  process. 

Thank-you.  This  was  corrected. 

Global  Comment  on  re-inspections.  What  happens  if  a  problem  is  found  during 
inspections?  Is  there  infonnation  on  likelihood  of  occurrence?  Seems  that  the 
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farther  you  are  in  the  process  the  worse  the  process  time  might  be  to  fix.  Say  the 
TPS  is  damaged  on  erecting  the  completely  integrated  vehicle  on  the  pad.  How 
this  would  be  repaired  might  require  longer  delays  than  if  the  damage  occurred  in 
the  maintenance  facility.  This  may  be  beyond  the  scope  of  this  effort  but  a 
processing  time  hit  will  result  if  additional  maintenance  activities  occur. 

For  this  effort,  we  are  assuming  that  any  additional  maintenance  required  will  be 
captured  in  the  Reinspection  module.  We  have  changed  the  title  of  these  modules 
to  'Reinspection  and  additional  mx.  ”  There  is  obviously  more  detail  that  could 
be  included  here,  but  this  will  be  fleshed  out  later. 

PAGE  12 
PAGE  13 

#4 

Keep  [umbilical  connections]  as  is  -  I'm  probably  getting  into  the  weeds  on  this 
one  :-) 

#14 

The  connections  should  be  simple,  but  they  are  not  always  simple.  I  would  leave 
it  as  is,  and  if  when  (if?)  we  ever  build  something  the  tool  can  be  validated  with 
correct  times  and  correct  operations.  You  always  have  the  option  of  zeroing  out 
time,  but  I  think  it  would  be  difficult  to  take  into  account  an  even  that  did  not 
exist  in  the  model. 

The  connections  can  be  very  complicated  if,  for  instance,  a  pin  by  pin  check  is 
required  prior  to  mating  and  then  a  full  electrical  check  required  afterwards. 

With  Arena,  this  process  will  be  able  to  modeled  after  real  data  captured  from 
actual  connection  times  of  similar  connectors.  Once  the  connector  type  is 
finalized  and  the  check  requirements  are  known,  it  will  be  fairly  simple  to  change 
the  distribution  in  Arena  to  model  that  type. 

#7 

If  the  Final  TPS  Inspection  done  manually  it  should  be  perfonned  before  the  RP-1 
fueling  to  reduce  the  number  of  personnel  near  an  already  fueled  vehicle.  If  the 
inspection  is  automated  this  would  not  be  required. 

Our  understanding  was  that  it  is  not  exceptionally  hazardous  to  work  around  RP- 
1,  since  it  is  similar  to  jet  fuel.  (Aircraft  operations  include  maintenance  around 
fully  fueled  aircraft  all  the  time,  with  certain  restrictions.) 

PAGE  14 
#4 
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If  you  use  hypergolics  you  can  work  on  the  vehicle.  If  you  use  cryo  -  once  you 
fuel  then  you  can't  go  near  it.  Plus  with  all  the  losses  while  it  sits  on  the  pad  you 
would  want  to  fuel  then  launch  as  quick  as  possible. 

I  think  your  only  limitation  on  parallel  loading  is  the  infrastructure  (pump  and 
pipe  size)  and  the  vehicles  ability  to  load  multiple  tanks  at  once  (structural 
loading,  etc.) 

We  are  expecting  a  cryogenic  fuel  to  be  utilized  to  lessen  the  hazards  associated 
with  using  hypergolic  fuels.  Until  we  know  piping  and  pumping  limitations  and 
vehicle  structural  limitations,  we  will  not  be  able  to  add  more  specifics  to  the 
parallel  propellan  t  loading  portion  of  the  model.  The  model  will  retain  the 
capability  of parallel  fueling  in  case  that  capability  needs  to  be  utilized. 

#14 

Is  there  any  way  you  can  create  an  option  to  have  serial  or  parallel  propellant 
loading? 

We  have  accounted  for  these  possibilities  on  page  14.  The  decision  nodes  at  the 
beginning  of page  14  will  direct  the  model  appropriately,  allowing  for  either 
parallel  or  serial  loading  operations.  Until  we  know  piping  and  pumping 
limitations  and  vehicle  structural  limitations,  we  will  not  be  able  to  add  more 
specifics  to  the  parallel  propellant  loading  portion  of  the  model. 
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Appendix  D.  Delphi  Panel  Round  Three  Comments 
GENERAL  COMMENTS 

#14  I  don’t  mean  to  be  knit-picky  here,  but  I  think  HLV  makes  an  assumption  that  may 
not  be  true.  The  first  space  operating  vehicle  (SOV)  may  or  may  not  a  hybrid.  It  could 
be,  but  it  also  could  be  fully  resuable  or  completely  expendable.  I  thought  SOV  was  the 
best  way  to  name  the  vehicle  because  it  does  not  assume  or  imply  anything  except  that 
the  vehicle  can  operate  in  space.  Operationally  Responsive  Space  Lift/Acess  (ORS)  does 
not  really  denote  a  vehicle,  but  really  describes  a  type  vehicle.  I  would  have  kept  it: 

SOV.  This  is  probably  minor,  though. 

#2  From  my  perspective,  no  missing  events,  paths  make  sense,  model  appears  sound,  no 
recommended  changes/ deletions/ additions/comments . 

#1  I  reviewed  the  model  and  have  no  additional  input. 

#9  I  have  no  further  comments  or  questions.  I  enjoyed  participating  in  the  development 
process. 

PAGE  3 

#10  Several  instances  of  using  a  clean  room  as  a  decision  block  in  the  payload 
processing  flow  diagrams.  If  the  payload  is  so  sensitive  to  contamination  at  this  stage  of 
the  processing,  then  the  flow  diagram  needs  to  include  encapsulating  the  payload  once 
your  connections  have  been  made  and  verified.  Encapsulated  payloads  require  constant 
monitoring  and  a  constant  supply  of  clean,  dry,  regulated  air  or  nitrogen  purge.  A  more 
realistic  approach  might  be  to  assume  that  the  payload  comes  pre-serviced  and 
encapsulated.  The  Launch  team  is  only  responsible  for  power,  comm,  and  mechanical 
connections  with  no  clean  room  required.  The  EELV  payloads  usually  arrive  in  this 
manner,  hypergolic  propellants  are  already  loaded  (but  they  do  have  a  limited  shelf  life 
once  they  are  loaded  (30  days??). 
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Appendix  E.  Graphical  User  Interface  Code 


Project/Hierarchy 


1  Private  Sub  CommandButtonl_Click ( ) 

2  Me. Hide 

3  Maintenance . Show 

4  End  Sub 

5  Private  Sub  CommandButtonlO_Click ( ) 

6  'c  =  ahtCommonFileOpenSave  () 

Arena .Application . ActiveModel . SaveAs  (Modulel . ahtCommonFileOpenSave) 


8 

End  Sub 

9 

Private  Sub  CommandButtonll 

ClickO 

10 

Me . Hide 

11 

po8propellant . Show 

12 

End  Sub 

13 

Private  Sub  CommandButtonl2 

Click() 

14 

Me . Hide 

15 

Run . Show 

16 

End  Sub 

17 

Private  Sub  CommandButton2 

Click ( ) 

18 

Me . Hide 

19 

motors . Show 

20 

End  Sub 

21 

Private  Sub  CommandButton3 

Click ( ) 

22 

Me . Hide 

23 

polprelim. Show 

24 

End  Sub 

25 

Private  Sub  CommandButton4 

Click ( ) 

26 

Me . Hide 

27 

po2on . Show 

28 

End  Sub 

29 

Private  Sub  CommandButton5 

Click ( ) 

30 

Me . Hide 

31 

po3of fpreint . Show 

32 

End  Sub 

33 

Private  Sub  CommandButton6 

Click ( ) 

34 

Me . Hide 

35 

po4of fnopreint . Show 

36 

End  Sub 

37 

Private  Sub  CommandButton7 

Click ( ) 

38 

Me . Hide 

39 

po5of fhyper . Show 

40 

End  Sub 

41 

Private  Sub  CommandButton8 

Click ( ) 

42 

Me . Hide 

43 

po6erect . Show 
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44  End  Sub 

45  Private  Sub  CommandButton9_Click ( ) 

46  Me. Hide 

47  po7umbilical . Show 

48  End  Sub 

49  Private  Sub  done01_Click ( ) 

50  End  Sub 

51  Sub  HideArenaO 

52  Application .Visible  =  True 

53  End  Sub 

54  Private  Sub  Label3_Click ( ) 

55  End  Sub 

56  Private  Sub  TextBoxl_Change ( ) 

57  End  Sub 

58  Private  Sub  UserForm_Click ( ) 

59  End  Sub 

60  Private  Sub  UserForm_Initialize ( ) 

61  doneOl . Visible  =  False 

62  done02 . Visible  =  False 

done03 . Visible  =  False 

64  done04 .Visible  =  False 

65  done05 .Visible  =  False 

done06 .Visible  =  False 
done07 .Visible  =  False 

68  done08 .Visible  =  False 

doneO 9 .Visible  =  False 
donelO .Visible  =  False 

71  End  Sub 


Project/Maintenance 


1  Private  Sub  ComboBoxl_Change ( ) 

2  End  Sub 

3  Private  Sub  ComboBox2_Change ( ) 

4  End  Sub 

5  Private  Sub  ComboBox31_Change ( ) 

6  End  Sub 

7  Private  Sub  CommandButton2_Click ( ) 

8  Me. Hide 
Hierarchy . Show 

10  End  Sub 

11  Private  Sub  CommandButton3_Click ( ) 

12  Dim  m  As  Model 

13  Set  m  =  ThisDocument .Model 

14  'Dim  ma99  As  Module 
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15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


'Dim  ma99i  As  Long 

'ma99i  =  m. Modules .  Find  (smFindTag ,  "ma99") 
'Set  ma99  =  m. Modules  (pop99i) 

'popl  .Data  ("Expression")  =  mad99.Text 
'  popl  .Data  ("Units" )  =  mau99  .Text 

Dim  maOl  As  Module 
Dim  maOli  As  Long 

maOli  =  m. Modules . Find (smFindTag,  "maOl") 
Set  maOl  =  m. Modules (maOli) 
maO 1 . Data ( "Expression" )  =  madOl.Text 
maOl . Data ( "Units" )  =  mauOl.Text 

Dim  ma02  As  Module 
Dim  ma02i  As  Long 

ma02i  =  m. Modules . Find (smFindTag,  "ma02") 
Set  ma02  =  m. Modules (ma02i) 
ma02 . Data ( "Expression" )  =  mad02.Text 
ma02 . Data ( "Units" )  =  mau02.Text 

Dim  ma03  As  Module 
Dim  ma03i  As  Long 

ma03i  =  m. Modules . Find (smFindTag,  "ma03") 
Set  ma03  =  m. Modules (ma03i) 
ma03 . Data ( "Expression" )  =  mad03.Text 
ma03 . Data ( "Units" )  =  mau03.Text 

Dim  ma04  As  Module 
Dim  ma04i  As  Long 

ma04i  =  m. Modules . Find (smFindTag,  "ma04") 
Set  ma04  =  m. Modules (ma04i) 
ma04 . Data ( "Expression" )  =  mad04.Text 
ma04 . Data ( "Units" )  =  mau04.Text 

Dim  ma05  As  Module 
Dim  ma05i  As  Long 

ma05i  =  m. Modules . Find (smFindTag,  "ma05") 
Set  ma05  =  m. Modules (ma05i) 
ma05 . Data ( "Expression" )  =  mad05.Text 
ma05 . Data ( "Units" )  =  mau05.Text 

'This  is  to  turn  on  the  deleted  question 
'Dim  ma06  As  Module 
'Dim  ma06i  As  Long 

'ma06i  =  m. Modules .  Find  (smFindTag,  "ma06") 
'Set  ma06  =  m. Modules  (ma06i) 

'ma06 .Data  ("Expression")  =  mad06.Text 
' maO 6 .Data ("Units" )  =  mau06 .Text 

Dim  ma07  As  Module 
Dim  ma07i  As  Long 

ma07i  =  m. Modules . Find (smFindTag,  "ma07") 
Set  ma07  =  m . Modules (ma07i ) 
ma07 . Data ( "Expression" )  =  mad07.Text 
ma07 . Data ( "Units" )  =  mau07.Text 

Dim  ma08  As  Module 
Dim  ma08i  As  Long 

ma08i  =  m. Modules . Find (smFindTag,  "ma08") 
Set  ma08  =  m. Modules (ma08i) 
ma08 . Data ( "Expression" )  =  mad08.Text 
ma08 . Data ( "Units" )  =  mau08.Text 

Dim  ma09  As  Module 
Dim  ma09i  As  Long 

ma09i  =  m. Modules . Find (smFindTag,  "ma09") 
Set  ma09  =  m. Modules (ma09i) 
ma09 . Data ( "Expression" )  =  mad09.Text 
ma09 . Data ( "Units" )  =  mau09.Text 
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76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

106 

107 

108 

109 

110 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 
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Dim  malO  As  Module 
Dim  malOi  As  Long 

malOi  =  m. Modules . Find (smFindTag,  "malO") 
Set  malO  =  m. Modules (malOi) 
malO . Data ( "Expression" )  =  madlO.Text 
malO . Data ( "Units" )  =  maulO.Text 

Dim  mall  As  Module 
Dim  malli  As  Long 

malli  =  m. Modules . Find (smFindTag,  "mall") 
Set  mall  =  m. Modules (malli) 
mall . Data ( "Expression" )  =  madll.Text 
mall . Data ( "Units" )  =  maull.Text 

Dim  mal2  As  Module 
Dim  mal2i  As  Long 

mal2i  =  m. Modules . Find (smFindTag,  "mal2") 
Set  mal2  =  m. Modules (mal2i) 
mal2 . Data ( "Expression" )  =  madl2.Text 
mal2 . Data ( "Units" )  =  maul2.Text 

Dim  mal3  As  Module 
Dim  mal3i  As  Long 

mal3i  =  m. Modules . Find (smFindTag,  "mal3") 
Set  mal3  =  m. Modules (mal3i) 
mal3 . Data ( "Expression" )  =  madl3.Text 
mal3 . Data ( "Units" )  =  maul3.Text 

Dim  mal4  As  Module 
Dim  mal4i  As  Long 

mal4i  =  m. Modules . Find (smFindTag,  "mal4") 
Set  mal4  =  m. Modules (mal4i) 
mal4 . Data ( "Expression" )  =  madl4.Text 
mal4 . Data ( "Units" )  =  maul4.Text 

Dim  mal4a  As  Module 
Dim  mal4ai  As  Long 

mal4ai  =  m. Modules . Find (smFindTag,  "mal4a") 

Set  mal4a  =  m. Modules (mal4ai) 

mal4a . Data ( "Percent  True")  =  mapl4a.Text 

Dim  mal5  As  Module 
Dim  mal5i  As  Long 

mal5i  =  m. Modules . Find (smFindTag,  "mal5") 
Set  mal5  =  m. Modules (mal5i) 
mal5 . Data ( "Expression" )  =  madl5.Text 
mal5 . Data ( "Units" )  =  maul5.Text 

Dim  mal6  As  Module 
Dim  mal6i  As  Long 

mal6i  =  m. Modules . Find (smFindTag,  "mal6") 
Set  mal6  =  m. Modules (mal6i) 
mal6 . Data ( "Expression" )  =  madl6.Text 
mal 6 . Data ( "Units" )  =  maul  6. Text 

Dim  mal 7  As  Module 
Dim  mal7i  As  Long 

mal7i  =  m. Modules . Find (smFindTag,  "mal7") 
Set  mal7  =  m. Modules (mal7i) 
mal7 . Data ( "Expression" )  =  madl7.Text 
mal7 . Data ( "Units" )  =  maul7.Text 

Dim  mal 8  As  Module 
Dim  mal8i  As  Long 

mal8i  =  m. Modules . Find (smFindTag,  "mal8") 
Set  mal8  =  m. Modules (mal8i) 
mal8 . Data ( "Expression" )  =  madl8.Text 
mal8 . Data ( "Units" )  =  maul8.Text 
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Dim  mal9  As  Module 
Dim  mal9i  As  Long 

mal9i  =  m. Modules . Find (smFindTag,  "mal9") 
Set  mal9  =  m. Modules (mal9i) 
mal 9 . Data ( "Expression" )  =  madl9.Text 
mal9 . Data ( "Units" )  =  maul9.Text 

Dim  ma20  As  Module 
Dim  ma20i  As  Long 

ma20i  =  m. Modules . Find (smFindTag,  "ma20") 
Set  ma20  =  m. Modules (ma20i) 
ma20 . Data ( "Expression" )  =  mad20.Text 
ma20 . Data ( "Units" )  =  mau20.Text 

Dim  ma21  As  Module 
Dim  ma21i  As  Long 

ma21i  =  m. Modules . Find (smFindTag,  "ma21") 
Set  ma21  =  m. Modules (ma21i) 
ma2 1 . Data ( "Expression" )  =  mad21.Text 
ma21 . Data ( "Units" )  =  mau21.Text 

Dim  ma22  As  Module 
Dim  ma22i  As  Long 

ma22i  =  m. Modules . Find (smFindTag,  "ma22") 
Set  ma22  =  m. Modules (ma22i) 
ma22 . Data ( "Expression" )  =  mad22.Text 
ma22 . Data ( "Units" )  =  mau22.Text 

Dim  ma23  As  Module 
Dim  ma23i  As  Long 

ma23i  =  m. Modules . Find (smFindTag,  "ma23") 
Set  ma23  =  m. Modules (ma23i) 
ma23 . Data ( "Expression" )  =  mad23.Text 
ma23 . Data ("Units" )  =  mau23.Text 

Dim  ma24  As  Module 
Dim  ma24i  As  Long 

ma24i  =  m. Modules . Find (smFindTag,  "ma24") 
Set  ma24  =  m. Modules (ma24i) 
ma24 . Data ( "Expression" )  =  mad24.Text 
ma2 4 . Data ( "Units" )  =  mau24.Text 

Dim  ma25  As  Module 
Dim  ma25i  As  Long 

ma25i  =  m. Modules . Find (smFindTag,  "ma25") 
Set  ma25  =  m. Modules (ma25i) 
ma25 . Data ( "Expression" )  =  mad25.Text 
ma25 . Data ( "Units" )  =  mau25.Text 

Dim  ma26  As  Module 
Dim  ma26i  As  Long 

ma26i  =  m. Modules . Find (smFindTag,  "ma26") 
Set  ma26  =  m. Modules (ma26i) 
ma2 6 . Data ( "Expression" )  =  mad26.Text 
ma2 6 . Data ( "Units" )  =  mau26.Text 

Dim  ma27  As  Module 
Dim  ma27i  As  Long 

ma27i  =  m. Modules . Find (smFindTag,  "ma27") 
Set  ma27  =  m. Modules (ma27i) 
ma27 . Data ( "Expression" )  =  mad27.Text 
ma27 . Data ( "Units" )  =  mau27.Text 

Dim  ma28  As  Module 
Dim  ma28i  As  Long 

ma28i  =  m. Modules . Find (smFindTag,  "ma28") 

Set  ma28  =  m. Modules (ma28i) 

ma2 8 . Data ( "Expression" )  =  mad28.Text 
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ma2 8 . Data ( "Units" )  =  mau28.Text 


Dim  ma29  As  Module 
Dim  ma29i  As  Long 

ma29i  =  m. Modules . Find (smFindTag,  "ma29") 
Set  ma29  =  m. Modules (ma29i) 
ma2 9 . Data ( "Expression" )  =  mad29.Text 
ma2 9 . Data ( "Units" )  =  mau29.Text 

Dim  ma30  As  Module 
Dim  ma30i  As  Long 

ma30i  =  m. Modules . Find (smFindTag,  "ma30") 
Set  ma30  =  m. Modules (ma30i) 
ma30 . Data ( "Expression" )  =  mad30.Text 
ma30 . Data ( "Units" )  =  mau30.Text 

Dim  ma31  As  Module 
Dim  ma31i  As  Long 

ma31i  =  m. Modules . Find (smFindTag,  "ma31") 
Set  ma31  =  m. Modules (ma31i) 
ma31 . Data ( "Expression" )  =  mad31.Text 
ma31 . Data ( "Units" )  =  mau31.Text 

Dim  ma32  As  Module 
Dim  ma32i  As  Long 

ma32i  =  m. Modules . Find (smFindTag,  "ma32") 
Set  ma32  =  m. Modules (ma32i) 
ma32 . Data ( "Expression" )  =  mad32.Text 
ma32 . Data ( "Units" )  =  mau32.Text 

Dim  ma33  As  Module 
Dim  ma33i  As  Long 

ma33i  =  m. Modules . Find (smFindTag,  "ma33") 
Set  ma33  =  m . Modules (ma33i ) 
ma33 . Data ( "Expression" )  =  mad33.Text 
ma33 . Data ( "Units" )  =  mau33.Text 

Dim  ma34  As  Module 
Dim  ma34i  As  Long 

ma34i  =  m. Modules . Find (smFindTag,  "ma34") 
Set  ma34  =  m. Modules (ma34i) 
ma34 . Data ( "Expression" )  =  mad34.Text 
ma34 . Data ( "Units" )  =  mau34.Text 

Dim  ma35  As  Module 
Dim  ma35i  As  Long 

ma35i  =  m. Modules . Find (smFindTag,  "ma35") 
Set  ma35  =  m . Modules (ma35i ) 
ma35 . Data ( "Expression" )  =  mad35.Text 
ma35 . Data ("Units" )  =  mau35.Text 

Dim  ma36  As  Module 
Dim  ma36i  As  Long 

ma36i  =  m. Modules . Find (smFindTag,  "ma36") 
Set  ma36  =  m. Modules (ma36i) 
ma36 . Data ( "Expression" )  =  mad36.Text 
ma36 . Data ( "Units" )  =  mau36.Text 

Dim  ma37  As  Module 
Dim  ma37i  As  Long 

ma37i  =  m. Modules . Find (smFindTag,  "ma37") 
Set  ma37  =  m . Modules (ma37i ) 
ma37 . Data ( "Expression" )  =  mad37.Text 
ma37 . Data ( "Units" )  =  mau37.Text 

'Dim  ma38  As  Module 
'Dim  ma38i  As  Long 

'ma38i  =  m.  Modules .  Find  (smFindTag,  "ma38") 
'Set  ma38  =  m. Modules  <ma38i) 
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'ma38 .  Data  ("Expression" )  =  map38.Text 

'Dim  ma39  As  Module 
'Dim  ma39i  As  Long 

'ma39i  =  m. Modules .  Find  (smFindTag,  "ma39") 
'Set  ma39  =  m. Modules (ma39i) 

' ma39 .Data  ("Expression" )  =  mad39.Text 
'ma39. Data  ("Units")  =  mau39 .Text 

Hierarchy . doneOl . Visible  =  True 
Me . Hide 
motors . Show 
End  Sub 

Private  Sub  CommandButton4_Click ( ) 

Dim  m  As  Model 

Set  m  =  ThisDocument .Model 

'Dim  ma99  As  Module 
'Dim  ma99i  As  Long 

'ma99i  =  m.  Modules .  Find  (smFindTag ,  "ma99") 
'Set  ma99  =  m. Modules  (pop99i) 

'popl  .Data  ("Expression")  =  mad99.Text 
'popl .  Data  ( "Units")  =  mau99.Text 

Dim  maOl  As  Module 
Dim  maOli  As  Long 

maOli  =  m. Modules . Find (smFindTag,  "maOl") 
Set  maOl  =  m. Modules (maOli) 
maOl . Data ( "Expression" )  =  madOl.Text 
maOl . Data ( "Units" )  =  mauOl.Text 

Dim  ma02  As  Module 
Dim  ma02i  As  Long 

ma02i  =  m. Modules . Find (smFindTag,  "ma02") 
Set  ma02  =  m. Modules (ma02i) 
ma02 . Data ( "Expression" )  =  mad02.Text 
ma02 . Data ( "Units" )  =  mau02.Text 

Dim  ma03  As  Module 
Dim  ma03i  As  Long 

ma03i  =  m. Modules . Find (smFindTag,  "ma03") 
Set  ma03  =  m. Modules (ma03i) 
ma03 . Data ( "Expression" )  =  mad03.Text 
ma03 . Data ( "Units" )  =  mau03.Text 

Dim  ma04  As  Module 
Dim  ma04i  As  Long 

ma04i  =  m. Modules . Find (smFindTag,  "ma04") 
Set  ma04  =  m. Modules (ma04i) 
ma04 . Data ( "Expression" )  =  mad04.Text 
ma04 . Data ( "Units" )  =  mau04.Text 

Dim  ma05  As  Module 
Dim  ma05i  As  Long 

ma05i  =  m. Modules . Find (smFindTag,  "ma05") 
Set  ma05  =  m. Modules (ma05i) 
ma05 . Data ( "Expression" )  =  mad05.Text 
ma05 . Data ("Units" )  =  mau05.Text 

'This  is  to  turn  on  the  deleted  question 
'Dim  ma06  As  Module 
'Dim  ma06i  As  Long 

'ma06i  =  m.  Modules .  Find  (smFindTag,  "ma06") 
'Set  ma06  =  m. Modules  (ma06i) 

'ma06 .Data  ("Expression")  =  mad06 .Text 
'ma06 .Data  ("Units")  =  mau06.Text 

Dim  ma07  As  Module 
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Dim  ma07i  As  Long 

ma07i  =  m. Modules . Find (smFindTag,  "ma07") 
Set  ma07  =  m . Modules (ma07i ) 
ma07 . Data ( "Expression" )  =  mad07.Text 
ma07 . Data ( "Units" )  =  mau07.Text 

Dim  ma08  As  Module 
Dim  ma08i  As  Long 

ma08i  =  m. Modules . Find (smFindTag,  "ma08") 
Set  ma08  =  m. Modules (ma08i) 
maO 8 . Data ( "Expression" )  =  mad08.Text 
ma08 . Data ( "Units" )  =  mau08.Text 

Dim  ma09  As  Module 
Dim  ma09i  As  Long 

ma09i  =  m. Modules . Find (smFindTag,  "ma09") 
Set  ma09  =  m. Modules (ma09i) 
maO 9 . Data ( "Expression" )  =  mad09.Text 
ma09 . Data ( "Units" )  =  mau09.Text 

Dim  malO  As  Module 
Dim  malOi  As  Long 

malOi  =  m. Modules . Find (smFindTag,  "malO") 
Set  malO  =  m. Modules (malOi) 
malO . Data ( "Expression" )  =  madlO.Text 
malO . Data ( "Units" )  =  maulO.Text 

Dim  mall  As  Module 
Dim  malli  As  Long 

malli  =  m. Modules . Find (smFindTag,  "mall") 
Set  mall  =  m. Modules (malli) 
mall . Data ( "Expression" )  =  madll.Text 
mal 1 . Data ( "Units" )  =  maull.Text 

Dim  mal2  As  Module 
Dim  mal2i  As  Long 

mal2i  =  m. Modules . Find (smFindTag,  "mal2") 
Set  mal2  =  m. Modules (mal2i) 
mal2 . Data ( "Expression" )  =  madl2.Text 
mal2 . Data ( "Units" )  =  maul2.Text 

Dim  mal3  As  Module 
Dim  mal3i  As  Long 

mal3i  =  m. Modules . Find (smFindTag,  "mal3") 
Set  mal3  =  m. Modules (mal3i) 
mal3 . Data ( "Expression" )  =  madl3.Text 
mal3 . Data ( "Units" )  =  maul3.Text 

Dim  mal 4  As  Module 
Dim  mal4i  As  Long 

mal4i  =  m. Modules . Find (smFindTag,  "mal4") 
Set  mal4  =  m. Modules (mal4i) 
mal4 . Data ("Expression" )  =  madl4.Text 
mal4 . Data ( "Units" )  =  maul4.Text 

Dim  mal 5  As  Module 
Dim  mal5i  As  Long 

mal5i  =  m. Modules . Find (smFindTag,  "mal5") 
Set  mal5  =  m. Modules (mal5i) 
mal5 . Data ( "Expression" )  =  madl5.Text 
mal5 . Data ( "Units" )  =  maul5.Text 

Dim  mal 6  As  Module 
Dim  mal6i  As  Long 

mal6i  =  m. Modules . Find (smFindTag,  "mal6") 
Set  mal6  =  m. Modules (mal 6i) 
mal 6 . Data ( "Expression" )  =  madl6.Text 
mal 6 . Data ( "Units" )  =  maul6.Text 
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Dim  mal7  As  Module 
Dim  mal7i  As  Long 

mal7i  =  m. Modules . Find (smFindTag,  "mal7") 
Set  mal7  =  m. Modules (mal7i) 
mal7 . Data ( "Expression" )  =  madl7.Text 
mal7 . Data ( "Units" )  =  maul7.Text 

Dim  mal8  As  Module 
Dim  mal8i  As  Long 

mal8i  =  m. Modules . Find (smFindTag,  "mal8") 
Set  mal8  =  m. Modules (mal8i) 
mal8 . Data ( "Expression" )  =  madl8.Text 
mal8 . Data ( "Units" )  =  maul8.Text 

Dim  mal9  As  Module 
Dim  mal9i  As  Long 

mal9i  =  m. Modules . Find (smFindTag,  "mal9") 
Set  mal9  =  m. Modules (mal9i) 
mal 9 . Data ( "Expression" )  =  madl9.Text 
mal 9 . Data ( "Units" )  =  maul  9. Text 

Dim  ma20  As  Module 
Dim  ma20i  As  Long 

ma20i  =  m. Modules . Find (smFindTag,  "ma20") 
Set  ma20  =  m. Modules (ma20i) 
ma20 . Data ( "Expression" )  =  mad20.Text 
ma20 . Data ( "Units" )  =  mau20.Text 

Dim  ma21  As  Module 
Dim  ma21i  As  Long 

ma21i  =  m. Modules . Find (smFindTag,  "ma21") 
Set  ma21  =  m. Modules (ma21i) 
ma21 . Data ( "Expression" )  =  mad21.Text 
ma21 . Data ( "Units" )  =  mau21.Text 

Dim  ma22  As  Module 
Dim  ma22i  As  Long 

ma22i  =  m. Modules . Find (smFindTag,  "ma22") 
Set  ma22  =  m. Modules (ma22i) 
ma22 . Data ( "Expression" )  =  mad22.Text 
ma22 . Data ( "Units" )  =  mau22.Text 

Dim  ma23  As  Module 
Dim  ma23i  As  Long 

ma23i  =  m. Modules . Find (smFindTag,  "ma23") 
Set  ma23  =  m. Modules (ma23i) 
ma23 . Data ( "Expression" )  =  mad23.Text 
ma23 . Data ( "Units" )  =  mau23.Text 

Dim  ma24  As  Module 
Dim  ma24i  As  Long 

ma24i  =  m. Modules . Find (smFindTag,  "ma24") 
Set  ma24  =  m. Modules (ma24i) 
ma24 . Data ( "Expression" )  =  mad24.Text 
ma24 . Data ( "Units" )  =  mau24.Text 

Dim  ma25  As  Module 
Dim  ma25i  As  Long 

ma25i  =  m. Modules . Find (smFindTag,  "ma25") 
Set  ma25  =  m. Modules (ma25i) 
ma25 . Data ( "Expression" )  =  mad25.Text 
ma25 . Data ( "Units" )  =  mau25.Text 

Dim  ma26  As  Module 
Dim  ma26i  As  Long 

ma26i  =  m. Modules . Find (smFindTag,  "ma26") 
Set  ma26  =  m. Modules (ma26i) 
ma26 . Data ( "Expression" )  =  mad26.Text 
ma26 . Data  ( "Units" )  =  mau26.Text 
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Dim  ma27  As  Module 
Dim  ma27i  As  Long 

ma27i  =  m. Modules . Find (smFindTag,  "ma27") 
Set  ma27  =  m. Modules (ma27i) 
ma27 . Data ( "Expression" )  =  mad27.Text 
ma2 7 . Data ( "Units" )  =  mau27.Text 

Dim  ma28  As  Module 
Dim  ma28i  As  Long 

ma28i  =  m. Modules . Find (smFindTag,  "ma28") 
Set  ma28  =  m. Modules (ma28i) 
ma28 . Data ( "Expression" )  =  mad28.Text 
ma28 . Data ( "Units" )  =  mau28.Text 

Dim  ma29  As  Module 
Dim  ma29i  As  Long 

ma29i  =  m. Modules . Find (smFindTag,  "ma29") 
Set  ma29  =  m . Modules (ma2 9i ) 
ma2 9 . Data ( "Expression" )  =  mad29.Text 
ma2 9 . Data ( "Units" )  =  mau29.Text 

Dim  ma30  As  Module 
Dim  ma30i  As  Long 

ma30i  =  m. Modules . Find (smFindTag,  "ma30") 
Set  ma30  =  m . Modules (ma30i ) 
ma30 . Data ( "Expression" )  =  mad30.Text 
ma30 . Data ( "Units" )  =  mau30.Text 

Dim  ma31  As  Module 
Dim  ma31i  As  Long 

ma31i  =  m. Modules . Find (smFindTag,  "ma31") 
Set  ma31  =  m. Modules (ma31i) 
ma31 . Data ( "Expression" )  =  mad31.Text 
ma31 . Data ("Units" )  =  mau31.Text 

Dim  ma32  As  Module 
Dim  ma32i  As  Long 

ma32i  =  m. Modules . Find (smFindTag,  "ma32") 
Set  ma32  =  m. Modules (ma32i) 
ma32 . Data ( "Expression" )  =  mad32 . Text 
ma32 . Data ( "Units" )  =  mau32.Text 

Dim  ma33  As  Module 
Dim  ma33i  As  Long 

ma33i  =  m. Modules . Find (smFindTag,  "ma33") 
Set  ma33  =  m. Modules (ma33i) 
ma33 . Data ( "Expression" )  =  mad33.Text 
ma33 . Data ( "Units" )  =  mau33.Text 

Dim  ma34  As  Module 
Dim  ma34i  As  Long 

ma34i  =  m. Modules . Find (smFindTag,  "ma34") 
Set  ma34  =  m. Modules (ma34i) 
ma34 . Data ( "Expression" )  =  mad34.Text 
ma34 . Data ( "Units" )  =  mau34.Text 

Dim  ma35  As  Module 
Dim  ma35i  As  Long 

ma35i  =  m. Modules . Find (smFindTag,  "ma35") 
Set  ma35  =  m . Modules (ma35i ) 
ma35 . Data ( "Expression" )  =  mad35.Text 
ma35 . Data ( "Units" )  =  mau35.Text 

Dim  ma36  As  Module 
Dim  ma36i  As  Long 

ma36i  =  m. Modules . Find (smFindTag,  "ma36") 

Set  ma36  =  m. Modules (ma36i) 

ma36 . Data ( "Expression" )  =  mad36.Text 
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ma36 . Data ("Units" )  =  mau36.Text 


Dim  ma37  As  Module 
Dim  ma37i  As  Long 

ma37i  =  m. Modules . Find (smFindTag,  "ma37") 
Set  ma37  =  m. Modules (ma37i) 
ma37 . Data ( "Expression" )  =  mad37.Text 
ma37 . Data ( "Units" )  =  mau37.Text 

Dim  ma38  As  Module 
Dim  ma38i  As  Long 

ma38i  =  m. Modules . Find (smFindTag,  "ma38") 
Set  ma38  =  m. Modules (ma38i) 

'ma38  .Data  ("Expression")  =  map38.Text 

Dim  ma39  As  Module 
Dim  ma39i  As  Long 

ma39i  =  m. Modules . Find (smFindTag,  "ma39") 
Set  ma39  =  m. Modules (ma39i) 
ma39 . Data ("Expression" )  =  mad39.Text 
ma39 . Data ( "Units" )  =  mau39.Text 

Hierarchy . doneOl .  Visible  =  True 
Me . Hide 
Hierarchy . Show 
End  Sub 

Private  Sub  Frame2_Click ( ) 

End  Sub 

Private  Sub  Frame3_Click ( ) 

End  Sub 

Private  Sub  Labell_Click ( ) 

End  Sub 

Private  Sub  LabellO_Click ( ) 

End  Sub 

Private  Sub  Labell5_Click ( ) 

End  Sub 

Private  Sub  Label2_Click ( ) 

End  Sub 

Private  Sub  Label24_Click ( ) 

End  Sub 

Private  Sub  Label27_Click ( ) 

End  Sub 

Private  Sub  Label3_Click ( ) 

End  Sub 

Private  Sub  Label31_Click ( ) 

End  Sub 

Private  Sub  Label32_Click ( ) 
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End  Sub 


Private  Sub  Label33_Click ( ) 

End  Sub 

Private  Sub  Label35_Click ( ) 

End  Sub 

Private  Sub  Label38_Click ( ) 

End  Sub 

Private  Sub  Label39_Click ( ) 

End  Sub 

Private  Sub  Label40_Click ( ) 

End  Sub 

Private  Sub  Label42_Click ( ) 

End  Sub 

Private  Sub  Label43_Click ( ) 

End  Sub 

Private  Sub  mal4a_Change ( ) 

End  Sub 

Private  Sub  mad01_Change ( ) 

End  Sub 

Private  Sub  mad04_Change ( ) 

End  Sub 

Private  Sub  mad07_Change ( ) 

End  Sub 

Private  Sub  madl4_Change ( ) 

End  Sub 

Private  Sub  mad34_Change ( ) 

End  Sub 

Private  Sub  MaHelp_Click ( ) 

Me . Hide 

MaHelp . Show 

End  Sub 

Private  Sub  MaintenanceHelp_Click ( ) 
Me . Hide 
MaHelp . Show 


End  Sub 

Private  Sub  MaintenancePrevious_Click ( ) 
Me . Hide 
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End  Sub 


Private  Sub  map38_Change  ( ) 
End  Sub 

Private  Sub  mau06_Change ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 
End  Sub 


Private  Sub  UserForm_Initialize ( ) 

'Code  below  populates  all  questions 

Dim  m  As  Model 

Set  m  =  ThisDocument .Model 

Dim  madOl  As  Module 

Dim  madOli  As  Long 

Dim  madOlv  As  String 

madOli  =  m . Modules . Find ( smFindTag,  "maOl") 

Set  madOl  =  m. Modules (madOli) 
madOlv  =  madOl . Data ( "Expression" ) 

Maintenance .madOl .value  =  madOlv 

Maintenance .madOl .Addltem  "TRIA  (  15,  30,  42  )",  0 
Maintenance .madOl .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madOl .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madOl .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madOl .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mauOlu  As  Module 
Dim  mauOlui  As  Long 
Dim  mauOluv  As  String 

mauOlui  =  m. Modules . Find (smFindTag,  "maOl") 

Set  mauOlu  =  m. Modules (mauOlui) 
mauOluv  =  mauOlu . Data ( "Units" ) 

Maintenance .mauOl . value  =  mauOluv 
Maintenance .mauOl .Addltem  "Seconds",  0 
Maintenance .mauOl .Addltem  "Minutes",  1 
Maintenance .mauOl .Addltem  "Hours",  2 
Maintenance .mauOl .Addltem  "Days",  3 


Dim  mad02  As  Module 
Dim  mad02i  As  Long 
Dim  mad02v  As  String 

mad02i  =  m. Modules . Find (smFindTag,  "ma02") 

Set  mad02  =  m. Modules (mad02i) 
mad02v  =  mad02 . Data ( "Expression" ) 

Maintenance .mad02 . value  =  mad02v 

Maintenance .mad02 .Addltem  "TRIA  (  17,  30,  36  )",  0 
Maintenance .mad02 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad02 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad02 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad02 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau02u  As  Module 
Dim  mau02ui  As  Long 
Dim  mau02uv  As  String 

mau02ui  =  m. Modules . Find (smFindTag,  "ma02") 

Set  mau02u  =  m. Modules (mau02ui) 
mau02uv  =  mau02u . Data ( "Units" ) 

Maintenance .mau02 . value  =  mau02uv 
Maintenance .mau02 .Addltem  "Seconds",  0 
Maintenance .mau02 .Addltem  "Minutes",  1 
Maintenance .mau02 .Addltem  "Hours",  2 
Maintenance .mau02 .Addltem  "Days",  3 
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Dim  mad03  As  Module 

Dim  mad03i  As  Long 

Dim  mad03v  As  String 

mad03i  =  m. Modules . Find (smFindTag, 

Set  mad03  =  m. Modules (mad03i) 

mad03v  =  mad03 . Data ( "Expression" ) 

Maintenance .mad03 . value  =  mad03v 

Maintenance .mad03 .Addltem  "TRIA  ( 

Maintenance .mad03 .Addltem  "TRIA  ( 

Maintenance .mad03 .Addltem  "NORM  ( 

Maintenance .mad03 .Addltem  "EXPO  ( 

Maintenance .mad03 .Addltem  "UNIF  ( 

Dim  mau03u  As  Module 

Dim  mau03ui  As  Long 

Dim  mau03uv  As  String 

mau03ui  =  m. Modules . Find (smFindTag 

Set  mau03u  =  m. Modules (mau03ui) 

mau03uv  =  mau03u . Data  ( "Units" ) 

Maintenance .mau03 .value  =  mau03uv 

Maintenance .mau03 .Addltem  "Seconds 

Maintenance .mau03 .Addltem  "Minutes 

Maintenance .mau03 .Addltem  "Hours" , 

Maintenance .mau03 .Addltem  "Days" , 


"ma03" ) 


54,  60,  84  )", 
Min,  Mode,  Max 
Mean,  StdDev  ) 
Mean  ) " ,  3 
Min,  Max  )",  4 


,  "ma03") 


2 

3 


0 

1 


0 

) 


2 


1 


Dim  mad04  As  Module 
Dim  mad04i  As  Long 
Dim  mad04v  As  String 

mad04i  =  m. Modules . Find (smFindTag,  "ma04") 

Set  mad04  =  m. Modules (mad04i) 
mad04v  =  mad04 . Data ( "Expression" ) 

Maintenance .mad04 . value  =  mad04v 

Maintenance .mad04 .Addltem  "TRIA  (  16,  20,  24  )",  0 
Maintenance .mad04 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad04 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad04 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad04 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau04u  As  Module 
Dim  mau04ui  As  Long 
Dim  mau04uv  As  String 

mau04ui  =  m. Modules . Find (smFindTag,  "ma04") 

Set  mau04u  =  m. Modules (mau04ui) 
mau04uv  =  mau04u . Data ( "Units" ) 

Maintenance .mau04 . value  =  mau04uv 
Maintenance .mau04 .Addltem  "Seconds",  0 
Maintenance .mau04 .Addltem  "Minutes",  1 
Maintenance .mau04 .Addltem  "Hours",  2 
Maintenance .mau04 .Addltem  "Days",  3 


Dim  mad05  As  Module 
Dim  mad05i  As  Long 
Dim  mad05v  As  String 

mad05i  =  m. Modules . Find (smFindTag,  "ma05") 

Set  mad05  =  m. Modules (mad05i) 
mad05v  =  mad05 . Data ( "Expression" ) 

Maintenance .mad05 . value  =  mad05v 

Maintenance .mad05 .Addltem  "TRIA  (  8,  10,  14  )",  0 
Maintenance .mad05 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad05 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad05 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad05 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau05u  As  Module 
Dim  mau05ui  As  Long 
Dim  mau05uv  As  String 

mau05ui  =  m. Modules . Find (smFindTag,  "ma05") 

Set  mau05u  =  m. Modules (mau05ui) 
mau05uv  =  mau05u . Data ( "Units" ) 

Maintenance .mau05 . value  =  mau05uv 
Maintenance .mau05 .Addltem  "Seconds",  0 
Maintenance .mau05 .Addltem  "Minutes",  1 


86 


706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 


Maintenance .mau05 .Addltem  "Hours",  2 
Maintenance .mau05 .Addltem  "Days",  3 


To  add  a  module  to  the  Arena  software  just  add  it  in  and  then  right  click 

'the  process  module  and  change  the  tag  to  "mad06"  without  the  quotes 

'remove  the  "'"  from  the  following  statements  to  activate  this  question 

'Dim  m  As  Model 

'Set  m  =  ThisDocument . Model 

'Dim  mad06  As  Module 

'Dim  mad06i  As  Long 

'Dim  mad06v  As  String 

'mad06i  =  m. Modules .  Find  (smFindTag,  " mad06 ") 

'Set  mad06  =  m. Modules  (mad06i) 

'mad06v  =  mad06 .Data  ("Expression") 

' Maintenance .madO 6 .value  =  mad06v 

' Maintenance .madO 6 . Addltem  "TRIA  (  27,  30,  42  ) ",  0 
'Maintenance .madO 6 .Addltem  "TRIA  (  Min,  Mode,  Max  ) " ,  1 
' Maintenance .madO 6 . Addltem  "NORM  (  Mean,  StdDev  )  ",  2 
' Maintenance .madO 6 . Addltem  "EXPO  (  Mean  )  ",  3 
'Maintenance .madO 6 .Addltem  "UNIF  (  Min,  Max  ) ",  4 
'Dim  mau06u  As  Module 
'Dim  mau06ui  As  Long 
'Dim  mau06uv  As  String 

'mau06ui  =  m. Modules .  Find  (smFindTag,  "ma06") 

'Set  mau06u  =  m. Modules (mau06ui) 

'mau06uv  =  mau06u.  Data  ("Units") 

'  Maintenance .mauO 6 . value  =  mau06uv 
' Maintenance .mauO 6 . Addltem  "Seconds",  0 
' Maintenance .mauO 6 . Addltem  "Minutes",  1 
' Maintenance .mauO 6 . Addltem  "Hours",  2 
'Maintenance .mauO 6 . Addltem  "Days",  3 


Dim  mad07  As  Module 
Dim  mad07i  As  Long 
Dim  mad07v  As  String 

mad07i  =  m. Modules . Find (smFindTag,  "ma07") 

Set  mad07  =  m. Modules (mad07i) 
mad07v  =  mad07 . Data ( "Expression" ) 

Maintenance .mad07 . value  =  mad07v 

Maintenance .mad07 .Addltem  "TRIA  (  8,  10,  14  )",  0 
Maintenance .mad07 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad07 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad07 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad07 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau07u  As  Module 
Dim  mau07ui  As  Long 
Dim  mau07uv  As  String 

mau07ui  =  m. Modules . Find (smFindTag,  "ma07") 

Set  mau07u  =  m. Modules (mau07ui) 
mau07uv  =  mau07u . Data ( "Units" ) 

Maintenance .mau07 .value  =  mau07uv 
Maintenance .mau07 .Addltem  "Seconds",  0 
Maintenance .mau07 .Addltem  "Minutes",  1 
Maintenance .mau07 .Addltem  "Hours",  2 
Maintenance .mau07 .Addltem  "Days",  3 


Dim  mad08  As  Module 
Dim  madO 8 i  As  Long 
Dim  mad08v  As  String 

mad08i  =  m. Modules . Find (smFindTag,  "ma08") 

Set  mad08  =  m. Modules (mad08i) 
mad08v  =  mad08 . Data ( "Expression" ) 

Maintenance .mad08 . value  =  mad08v 

Maintenance .mad08 .Addltem  "TRIA  (  54,  60,  72  )",  0 
Maintenance .mad08 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad08 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madO 8 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madO 8 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau08u  As  Module 
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Dim  mau08ui  As  Long 
Dim  mau08uv  As  String 

mau08ui  =  m. Modules . Find (smFindTag,  "ma08") 

Set  mau08u  =  m. Modules (mau08ui) 
mau08uv  =  mau08u . Data ( "Units" ) 

Maintenance .mau08 . value  =  mau08uv 
Maintenance .mau08 .Addltem  "Seconds",  0 
Maintenance .mau08 .Addltem  "Minutes",  1 
Maintenance .mau08 .Addltem  "Hours",  2 
Maintenance .mau08 .Addltem  "Days",  3 

Dim  mad09  As  Module 
Dim  mad09i  As  Long 
Dim  mad09v  As  String 

mad09i  =  m. Modules . Find (smFindTag,  "ma09") 

Set  mad09  =  m. Modules (mad09i) 
mad09v  =  mad09 . Data ( "Expression" ) 

Maintenance .madO 9 . value  =  mad09v 

Maintenance .mad09 .Addltem  "TRIA  (  8,  10,  14  )",  0 
Maintenance .madO 9 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad09 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad09 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad09 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau09u  As  Module 
Dim  mau09ui  As  Long 
Dim  mau09uv  As  String 

mau09ui  =  m. Modules . Find (smFindTag,  "ma09") 

Set  mau09u  =  m. Modules (mau09ui) 
mau09uv  =  mau09u . Data ( "Units" ) 

Maintenance .mau09 . value  =  mau09uv 
Maintenance .mau09 .Addltem  "Seconds",  0 
Maintenance .mau09 .Addltem  "Minutes",  1 
Maintenance .mau09 .Addltem  "Hours",  2 
Maintenance .mau09 .Addltem  "Days",  3 

Dim  madlO  As  Module 
Dim  madlOi  As  Long 
Dim  madlOv  As  String 

madlOi  =  m. Modules . Find (smFindTag,  "malO") 

Set  madlO  =  m. Modules (madlOi) 
madlOv  =  madlO . Data ( "Expression" ) 

Maintenance .madlO .value  =  madlOv 

Maintenance .madlO .Addltem  "TRIA  (  54,  60,  84  )",  0 
Maintenance .madlO .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madlO .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madlO .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madlO .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maulOu  As  Module 
Dim  maulOui  As  Long 
Dim  maulOuv  As  String 

maulOui  =  m. Modules . Find (smFindTag,  "malO") 

Set  maulOu  =  m. Modules (maulOui) 
maulOuv  =  maulOu . Data  ( "Units" ) 

Maintenance .maulO . value  =  maulOuv 
Maintenance .maulO .Addltem  "Seconds",  0 
Maintenance .maulO .Addltem  "Minutes",  1 
Maintenance .maulO .Addltem  "Hours",  2 
Maintenance .maulO .Addltem  "Days",  3 

Dim  madll  As  Module 
Dim  madlli  As  Long 
Dim  madllv  As  String 

madlli  =  m. Modules . Find (smFindTag,  "mall") 

Set  madll  =  m. Modules (madlli) 
madllv  =  madl 1 . Data ( "Expression" ) 

Maintenance .madl 1 . value  =  madllv 

Maintenance .madl 1 .Addltem  "TRIA  (  27,  30,  42  )",  0 
Maintenance .madl 1 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madl 1 .Addltem  "NORM  (  Mean,  StdDev  )",  2 


88 


838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 


Maintenance .madl 1 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madl 1 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul lu  As  Module 
Dim  maullui  As  Long 
Dim  maulluv  As  String 

maullui  =  m. Modules . Find (smFindTag,  "mall") 

Set  maullu  =  m. Modules (maullui) 
maulluv  =  maul lu . Data ( "Units" ) 

Maintenance .maul 1 . value  =  maulluv 
Maintenance .maul 1 .Addltem  "Seconds",  0 
Maintenance .maul 1 .Addltem  "Minutes",  1 
Maintenance .maul 1 .Addltem  "Hours",  2 
Maintenance .maul 1 .Addltem  "Days",  3 


Dim  madl 2  As  Module 
Dim  madl2i  As  Long 
Dim  madl2v  As  String 

madl2i  =  m. Modules . Find (smFindTag,  "mal2") 

Set  madl2  =  m. Modules (madl2i) 
madl2v  =  madl2 . Data ( "Expression" ) 

Maintenance ,madl2 . value  =  madl2v 

Maintenance ,madl2 .Addltem  "TRIA  (  54,  60,  84  )",  0 
Maintenance ,madl2 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance ,madl2 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance ,madl2 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance ,madl2 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul2u  As  Module 
Dim  maul2ui  As  Long 
Dim  maul2uv  As  String 

maul2ui  =  m. Modules . Find (smFindTag,  "mal2") 

Set  maul2u  =  m. Modules (maul2ui) 
maul2uv  =  maul2u . Data ( "Units" ) 

Maintenance ,maul2 .value  =  maul2uv 
Maintenance .maul2 .Addltem  "Seconds",  0 
Maintenance .maul2 .Addltem  "Minutes",  1 
Maintenance .maul2 .Addltem  "Hours",  2 
Maintenance ,maul2 .Addltem  "Days",  3 


Dim  madl 3  As  Module 
Dim  madl3i  As  Long 
Dim  madl3v  As  String 
madl3i  =  m. Modules . Find (smFindTag, 

Set  madl3  =  m. Modules (madl3i) 
madl3v  =  madl3 . Data ( "Expression" ) 
Maintenance .madl3 . value  =  madl3v 
Maintenance .madl3 .Addltem  "TRIA  (  24, 
Maintenance .madl3 .Addltem  "TRIA 
Maintenance .madl3 .Addltem  "NORM 
Maintenance .madl3 .Addltem  "EXPO 
Maintenance .madl3 .Addltem  "UNIF 
Dim  maul3u  As  Module 
Dim  maul3ui  As  Long 
Dim  maul3uv  As  String 
maul3ui  =  m. Modules . Find (smFindTag, 
Set  maul3u  =  m. Modules (maul3ui) 
maul3uv  =  maul3u . Data ( "Units" ) 
Maintenance .maul3 . value  =  maul3uv 
Maintenance .maul3 .Addltem  "Seconds" , 
Maintenance .maul3 .Addltem  "Minutes" , 
Maintenance .maul3 .Addltem  "Hours",  2 
Maintenance .maul3 .Addltem  "Days",  3 


ma 1 3 " ) 


60,  84  )",  0 
(  Min,  Mode,  Max  )", 

(  Mean,  StdDev  )",  2 

(  Mean  ) " ,  3 

(  Min,  Max  )",  4 


ma 1 3 " ) 


1 


Dim  madl 4  As  Module 
Dim  madl4i  As  Long 
Dim  madl4v  As  String 

madl4i  =  m. Modules . Find (smFindTag,  "mal4") 
Set  madl4  =  m. Modules (madl4i) 
madl4v  =  madl4 . Data ( "Expression" ) 
Maintenance ,madl4 . value  =  madl4v 
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Maintenance .madl4 . Addltem 
Maintenance .madl4 .Addltem 
Maintenance .madl4 .Addltem 
Maintenance .madl4 .Addltem 
Maintenance .madl4 .Addltem 
Dim  maul4u  As  Module 
Dim  maul4ui  As  Long 
Dim  maul4uv  As  String 
maul4ui  =  m. Modules . Find (smFindTag, 

Set  maul4u  =  m. Modules (maul4ui) 
maul4uv  =  maul4u . Data ( "Units" ) 
Maintenance .maul4 . value  =  maul4uv 
Maintenance .maul4 .Addltem  "Seconds" , 
Maintenance .maul4 .Addltem  "Minutes" , 
Maintenance .maul 4 .Addltem  "Hours",  2 
Maintenance .maul 4 .Addltem  "Days",  3 

Dim  mal4a  As  Module 
Dim  mal4ai  As  Long 
Dim  mal4av  As  String 
mal4ai  =  m. Modules . Find (smFindTag, 

Set  mal4a  =  m. Modules (mal4ai) 
mal4av  =  mal4a . Data ( "Percent  True") 
Maintenance .mapl4a . value  =  mal4av 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
If  countnumber  <  100  Then  countnumber 
Maintenance .mapl4a . Addltem  countnumber 
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If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
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Maintenance .mapl4a . Addltem  countnumber, 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .map!4a . Addltem  countnumber. 
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If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .mapl4a . Addltem  countnumber. 
If  countnumber  <  100  Then  countnumber  = 
Maintenance .map!4a . Addltem  countnumber. 
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'Dim  mal4a  As  Module 
'Dim  mal4ai  As  Long 
'Dim  mal4av  As  String 

'mal4ai  =  m.  Modules .  Find  (smFindTag ,  "mal4a") 
'Set  mal4a  =  m. Modules (mal4ai) 

'mal4av  =  mal4a . Data  ("expression" ) 
'Maintenance .mal4a .value  =  mad!4av 


Dim  madl5  As  Module 
Dim  madl5i  As  Long 
Dim  madl5v  As  String 

madl5i  =  m. Modules . Find (smFindTag,  "mal5") 

Set  madl5  =  m. Modules (madl5i) 
madl5v  =  madl5 . Data ( "Expression" ) 

Maintenance .madl5 .value  =  madl5v 

Maintenance .madl5 .Addltem  "TRIA  (  81,  90,  126  )",  0 
Maintenance .madl5 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madl5 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madl 5 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madl 5 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul5u  As  Module 
Dim  maul5ui  As  Long 
Dim  maul5uv  As  String 

maul5ui  =  m. Modules . Find (smFindTag,  "mal5") 

Set  maul5u  =  m. Modules (maul5ui) 
maul5uv  =  maul5u . Data ( "Units" ) 

Maintenance .maul5 . value  =  maul5uv 
Maintenance .maul5 .Addltem  "Seconds",  0 
Maintenance .maul 5 .Addltem  "Minutes",  1 
Maintenance .maul5 .Addltem  "Hours",  2 
Maintenance .maul5 .Addltem  "Days",  3 

Dim  madl 6  As  Module 
Dim  madl6i  As  Long 
Dim  madl6v  As  String 

madl6i  =  m. Modules . Find (smFindTag,  "mal6") 

Set  madl 6  =  m. Modules (madl 6i) 
madl6v  =  madl 6 . Data ( "Expression" ) 

Maintenance .madl6 .value  =  madl6v 

Maintenance .madl6 .Addltem  "TRIA  (  162,  180,  252  )",  0 
Maintenance .madl6 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madl 6 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madl6 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madl 6 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul6u  As  Module 
Dim  maul6ui  As  Long 
Dim  maul6uv  As  String 

maul6ui  =  m. Modules . Find (smFindTag,  "mal6") 

Set  maul6u  =  m. Modules (maul6ui) 
maul6uv  =  maul6u . Data ( "Units" ) 
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Maintenance .maul  6 .value  =  maul6uv 
Maintenance .maul 6 .Addltem  "Seconds",  0 
Maintenance .maul 6 .Addltem  "Minutes",  1 
Maintenance .maul 6 .Addltem  "Hours",  2 
Maintenance .maul 6 .Addltem  "Days",  3 


Dim  madl7  As  Module 
Dim  madl7i  As  Long 
Dim  madl7v  As  String 

madl7i  =  m. Modules . Find (smFindTag,  "mal7") 

Set  madl7  =  m. Modules (madl7i) 
madl7v  =  madl7 . Data ( "Expression" ) 

Maintenance ,madl7 . value  =  madl7v 

Maintenance ,madl7 .Addltem  "TRIA  (  108,  120,  168  )",  0 
Maintenance ,madl7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance ,madl7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance ,madl7 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance ,madl7 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul7u  As  Module 
Dim  maul7ui  As  Long 
Dim  maul7uv  As  String 

maul7ui  =  m. Modules . Find (smFindTag,  "mal7") 

Set  maul7u  =  m. Modules (maul7ui) 
maul7uv  =  maul7u . Data ( "Units" ) 

Maintenance ,maul7 . value  =  maul7uv 
Maintenance ,maul7 .Addltem  "Seconds",  0 
Maintenance ,maul7 .Addltem  "Minutes",  1 
Maintenance ,maul7 .Addltem  "Hours",  2 
Maintenance ,maul7 .Addltem  "Days",  3 


Dim  madl8  As  Module 
Dim  madl8i  As  Long 
Dim  madl8v  As  String 

madl8i  =  m. Modules . Find (smFindTag,  "mal8") 

Set  madl8  =  m. Modules (madl8i) 
madl8v  =  madl 8 . Data ( "Expression" ) 

Maintenance .madl 8 . value  =  madl8v 

Maintenance .madl 8 .Addltem  "TRIA  (  54,  60,  84  )",  0 
Maintenance .madl8 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .madl8 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .madl8 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .madl 8 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  maul8u  As  Module 
Dim  maul8ui  As  Long 
Dim  maul8uv  As  String 

maul8ui  =  m. Modules . Find (smFindTag,  "mal8") 

Set  maul8u  =  m. Modules (maul8ui) 
maul8uv  =  maul 8u . Data ( "Units" ) 

Maintenance .maul8 . value  =  maul8uv 
Maintenance .maul 8 .Addltem  "Seconds",  0 
Maintenance .maul 8 .Addltem  "Minutes",  1 
Maintenance .maul 8 .Addltem  "Hours",  2 
Maintenance .maul 8 .Addltem  "Days",  3 


Dim  madl 9  As  Module 

Dim  madl9i  As  Long 

Dim  madl9v  As  String 

madl9i  =  m. Modules . Find (smFindTag, 

Set  madl9  =  m. Modules (madl9i) 

madl9v  =  madl 9 . Data ( "Expression" ) 

Maintenance .madl 9 . value  =  madl9v 


"mal9") 


Maintenance .madl 9 .Addltem  "TRIA 
Maintenance .madl 9 .Addltem  "TRIA 
Maintenance .madl 9 .Addltem  "NORM 
Maintenance .madl 9 .Addltem  "EXPO 
Maintenance .madl 9 .Addltem  "UNIF 
Dim  maul9u  As  Module 
Dim  maul9ui  As  Long 
Dim  maul9uv  As  String 


8,  10,  14 
Min,  Mode,  Max 
Mean,  StdDev  ) 
Mean  ) " ,  3 
Min,  Max  )",  4 


0 


1 


94 


1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 


maul9ui  =  m. Modules . Find (smFindTag,  "mal9") 

Set  maul9u  =  m. Modules (maul9ui) 
maul9uv  =  maul 9u . Data ( "Units" ) 

Maintenance .maul  9 . value  =  maul9uv 
Maintenance .maul 9 .Addltem  "Seconds",  0 
Maintenance .maul 9 .Addltem  "Minutes",  1 
Maintenance .maul 9 .Addltem  "Hours",  2 
Maintenance .maul 9 .Addltem  "Days",  3 

Dim  mad20  As  Module 
Dim  mad20i  As  Long 
Dim  mad20v  As  String 

mad20i  =  m. Modules . Find (smFindTag,  "ma20") 

Set  mad20  =  m. Modules (mad20i) 
mad20v  =  mad20 . Data ( "Expression" ) 

Maintenance .mad20 . value  =  mad20v 

Maintenance .mad20 .Addltem  "TRIA  (  24,  30,  42  )",  0 
Maintenance .mad20 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad20 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad20 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad20 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau20u  As  Module 
Dim  mau20ui  As  Long 
Dim  mau20uv  As  String 

mau20ui  =  m. Modules . Find (smFindTag,  "ma20") 

Set  mau20u  =  m. Modules (mau20ui) 
mau20uv  =  mau20u . Data ( "Units" ) 

Maintenance .mau20 . value  =  mau20uv 
Maintenance .mau20 .Addltem  "Seconds",  0 
Maintenance .mau20 .Addltem  "Minutes",  1 
Maintenance .mau20 .Addltem  "Hours",  2 
Maintenance .mau20 .Addltem  "Days",  3 

Dim  mad21  As  Module 
Dim  mad21i  As  Long 
Dim  mad21v  As  String 

mad21i  =  m. Modules . Find (smFindTag,  "ma21") 

Set  mad21  =  m. Modules (mad21i) 
mad21v  =  mad21 . Data ( "Expression" ) 

Maintenance ,mad2 1 . value  =  mad21v 

Maintenance .mad2 1 .Addltem  "TRIA  (  81,  90,  126  )",  0 
Maintenance .mad2 1 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad2 1 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad2 1 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad2 1 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau21u  As  Module 
Dim  mau21ui  As  Long 
Dim  mau21uv  As  String 

mau21ui  =  m. Modules . Find (smFindTag,  "ma21") 

Set  mau21u  =  m. Modules (mau21ui) 
mau21uv  =  mau2 lu . Data ( "Units" ) 

Maintenance .mau2 1 . value  =  mau21uv 
Maintenance .mau2 1 .Addltem  "Seconds",  0 
Maintenance .mau2 1 .Addltem  "Minutes",  1 
Maintenance .mau2 1 .Addltem  "Hours",  2 
Maintenance .mau2 1 .Addltem  "Days",  3 

Dim  mad22  As  Module 
Dim  mad22i  As  Long 
Dim  mad22v  As  String 

mad22i  =  m. Modules . Find (smFindTag,  "ma22") 

Set  mad22  =  m. Modules (mad22i) 
mad22v  =  mad22 . Data ( "Expression" ) 

Maintenance ,mad22 . value  =  mad22v 

Maintenance ,mad22 .Addltem  "TRIA  (  24,  30,  42  )",  0 
Maintenance ,mad22 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance ,mad22 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance ,mad22 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance ,mad22 .Addltem  "UNIF  (  Min,  Max  )",  4 


95 


1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 


Dim  mau22u  As  Module 
Dim  mau22ui  As  Long 
Dim  mau22uv  As  String 

mau22ui  =  m. Modules . Find (smFindTag,  "ma22" ) 

Set  mau22u  =  m. Modules (mau22ui) 
mau22uv  =  mau22u . Data ( "Units" ) 

Maintenance .mau22 . value  =  mau22uv 
Maintenance .mau22 .Addltem  "Seconds",  0 
Maintenance .mau22 .Addltem  "Minutes",  1 
Maintenance .mau22 .Addltem  "Hours",  2 
Maintenance .mau22 .Addltem  "Days",  3 

Dim  mad23  As  Module 
Dim  mad23i  As  Long 
Dim  mad23v  As  String 

mad23i  =  m. Modules . Find (smFindTag,  "ma23") 

Set  mad23  =  m. Modules (mad23i) 
mad23v  =  mad23 . Data ( "Expression" ) 

Maintenance .mad23 .value  =  mad23v 

Maintenance .mad23 .Addltem  "TRIA  (  81,  90,  126  )",  0 
Maintenance .mad23 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad23 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad23 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad23 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau23u  As  Module 
Dim  mau23ui  As  Long 
Dim  mau23uv  As  String 

mau23ui  =  m. Modules . Find (smFindTag,  "ma23") 

Set  mau23u  =  m. Modules (mau23ui) 
mau23uv  =  mau23u . Data ( "Units" ) 

Maintenance .mau23 . value  =  mau23uv 
Maintenance .mau23 .Addltem  "Seconds",  0 
Maintenance .mau23 .Addltem  "Minutes",  1 
Maintenance .mau23 .Addltem  "Hours",  2 
Maintenance .mau23 .Addltem  "Days",  3 

Dim  mad24  As  Module 
Dim  mad24i  As  Long 
Dim  mad24v  As  String 

mad24i  =  m. Modules . Find (smFindTag,  "ma24") 

Set  mad24  =  m. Modules (mad24i) 
mad24v  =  mad24 . Data ( "Expression" ) 

Maintenance .mad24 .value  =  mad24v 

Maintenance .mad24 .Addltem  "TRIA  (  81,  90,  126  )",  0 
Maintenance .mad24 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad2 4 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad2 4 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad2 4 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau24u  As  Module 
Dim  mau24ui  As  Long 
Dim  mau24uv  As  String 

mau24ui  =  m. Modules . Find (smFindTag,  "ma24") 

Set  mau24u  =  m. Modules (mau24ui) 
mau24uv  =  mau24u . Data ( "Units" ) 

Maintenance .mau2 4 . value  =  mau24uv 
Maintenance .mau2 4 .Addltem  "Seconds",  0 
Maintenance .mau2 4 .Addltem  "Minutes",  1 
Maintenance .mau24 .Addltem  "Hours",  2 
Maintenance .mau24 .Addltem  "Days",  3 

Dim  mad25  As  Module 
Dim  mad25i  As  Long 
Dim  mad25v  As  String 

mad25i  =  m. Modules . Find (smFindTag,  "ma25") 

Set  mad25  =  m. Modules (mad25i) 
mad25v  =  mad25 . Data ( "Expression" ) 

Maintenance .mad25 .value  =  mad25v 

Maintenance .mad25 .Addltem  "TRIA  (  0,  60,  120  )",  0 
Maintenance .mad25 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
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1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 


Maintenance .mad25 .Addltem  "NORM  (  Mean,  StdDev  ) " ,  2 
Maintenance .mad25 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad2 5 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau25u  As  Module 
Dim  mau25ui  As  Long 
Dim  mau25uv  As  String 

mau25ui  =  m. Modules . Find (smFindTag,  "ma25") 

Set  mau25u  =  m. Modules (mau25ui) 
mau25uv  =  mau25u . Data ( "Units" ) 

Maintenance .mau25 .value  =  mau25uv 
Maintenance .mau25 .Addltem  "Seconds",  0 
Maintenance .mau2 5 .Addltem  "Minutes",  1 
Maintenance .mau2 5 .Addltem  "Hours",  2 
Maintenance .mau2 5 .Addltem  "Days",  3 

Dim  mad26  As  Module 
Dim  mad26i  As  Long 
Dim  mad26v  As  String 

mad26i  =  m. Modules . Find (smFindTag,  "ma26") 

Set  mad26  =  m. Modules (mad26i) 
mad26v  =  mad2 6 . Data ( "Expression" ) 

Maintenance .mad2 6 . value  =  mad26v 

Maintenance .mad2 6 .Addltem  "TRIA  (  0,  60,  120  )",  0 
Maintenance .mad2 6 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad26 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad26 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad26 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau26u  As  Module 
Dim  mau26ui  As  Long 
Dim  mau26uv  As  String 

mau26ui  =  m. Modules . Find (smFindTag,  "ma26") 

Set  mau26u  =  m. Modules (mau26ui) 
mau26uv  =  mau26u . Data ( "Units" ) 

Maintenance .mau26 .value  =  mau26uv 
Maintenance .mau26 .Addltem  "Seconds",  0 
Maintenance .mau26 .Addltem  "Minutes",  1 
Maintenance .mau26 .Addltem  "Hours",  2 
Maintenance .mau2 6 .Addltem  "Days",  3 

Dim  mad27  As  Module 
Dim  mad27i  As  Long 
Dim  mad27v  As  String 

mad27i  =  m. Modules . Find (smFindTag,  "ma27") 

Set  mad27  =  m. Modules (mad27i) 
mad27v  =  mad27 . Data ( "Expression" ) 

Maintenance .mad27 . value  =  mad27v 

Maintenance .mad27 .Addltem  "TRIA  (  30,  180,  360  )",  0 
Maintenance .mad27 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad27 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad27 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad27 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau27u  As  Module 
Dim  mau27ui  As  Long 
Dim  mau27uv  As  String 

mau27ui  =  m. Modules . Find (smFindTag,  "ma27") 

Set  mau27u  =  m. Modules (mau27ui) 
mau27uv  =  mau27u . Data ( "Units" ) 

Maintenance .mau27 .value  =  mau27uv 
Maintenance .mau27 .Addltem  "Seconds",  0 
Maintenance .mau27 .Addltem  "Minutes",  1 
Maintenance .mau27 .Addltem  "Hours",  2 
Maintenance .mau27 .Addltem  "Days",  3 

Dim  mad28  As  Module 
Dim  mad28i  As  Long 
Dim  mad28v  As  String 

mad28i  =  m. Modules . Find (smFindTag,  "ma28") 

Set  mad28  =  m. Modules (mad28i) 
mad28v  =  mad28 . Data ( "Expression" ) 
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1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 


Maintenance .mad2 8 . value  =  mad28v 
Maintenance .mad2 8 .Addltem  "TRIA 
Maintenance .mad2 8 .Addltem  "TRIA 
Maintenance .mad28 .Addltem  "NORM 
Maintenance .mad28 .Addltem  "EXPO 
Maintenance .mad28 .Addltem  "UNIF 
Dim  mau28u  As  Module 
Dim  mau28ui  As  Long 
Dim  mau28uv  As  String 
mau28ui  =  m. Modules . Find (smFindTag, 
Set  mau28u  =  m. Modules (mau28ui) 
mau28uv  =  mau28u . Data ( "Units" ) 
Maintenance .mau28 . value  =  mau28uv 
Maintenance .mau28 .Addltem  "Seconds" , 
Maintenance .mau28 .Addltem  "Minutes" , 
Maintenance .mau28 .Addltem  "Hours",  2 
Maintenance .mau2 8 .Addltem  "Days",  3 


(  108,  120,  168  ) 
(  Min,  Mode,  Max 
(  Mean,  StdDev  )  " 
(  Mean  ) " ,  3 
(  Min,  Max  )",  4 


'ma28") 


0 

,  1 

2 


Dim  mad29  As  Module 
Dim  mad29i  As  Long 
Dim  mad29v  As  String 

mad29i  =  m. Modules . Find (smFindTag,  "ma29") 

Set  mad29  =  m. Modules (mad29i) 
mad29v  =  mad2 9 . Data ( "Expression" ) 

Maintenance .mad2 9 . value  =  mad29v 

Maintenance .mad2 9 .Addltem  "TRIA  (  108,  120,  168  )",  0 
Maintenance .mad2 9 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad2 9 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance ,mad2 9 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad2 9 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau29u  As  Module 
Dim  mau29ui  As  Long 
Dim  mau29uv  As  String 

mau29ui  =  m. Modules . Find (smFindTag,  "ma29") 

Set  mau29u  =  m. Modules (mau29ui) 
mau29uv  =  mau2 9u . Data ( "Units" ) 

Maintenance .mau2 9 .value  =  mau29uv 
Maintenance .mau2 9 .Addltem  "Seconds",  0 
Maintenance .mau2 9 .Addltem  "Minutes",  1 
Maintenance .mau2 9 .Addltem  "Hours",  2 
Maintenance .mau2 9 .Addltem  "Days",  3 


Dim  mad30  As  Module 

Dim  mad30i  As  Long 

Dim  mad30v  As  String 

mad30i  =  m. Modules . Find (smFindTag, 

Set  mad30  =  m. Modules (mad30i) 

mad30v  =  mad30 . Data ( "Expression" ) 

Maintenance .mad30 . value  =  mad30v 


"ma30" ) 


Maintenance .mad30 .Addltem  "TRIA  ( 
Maintenance .mad30 .Addltem  "TRIA  ( 
Maintenance .mad30 .Addltem  "NORM  ( 
Maintenance .mad30 .Addltem  "EXPO  ( 
Maintenance .mad30 .Addltem  "UNIF  ( 

Dim  mau30u  As  Module 

Dim  mau30ui  As  Long 

Dim  mau30uv  As  String 

mau30ui  =  m. Modules . Find (smFindTag, 

Set  mau30u  =  m. Modules (mau30ui) 

mau30uv  =  mau30u . Data ( "Units" ) 

Maintenance .mau30 . value  =  mau30uv 

Maintenance .mau30 .Addltem  "Seconds" , 

Maintenance .mau30 .Addltem  "Minutes" , 

Maintenance .mau30 .Addltem  "Hours",  2 

Maintenance .mau30 .Addltem  "Days",  3 


0,  120,  180  )", 
Min,  Mode,  Max 
Mean,  StdDev  ) " 
Mean  ) " ,  3 
Min,  Max  )",  4 


'ma30" ) 


0 


2 


1 


Dim  mad31  As  Module 
Dim  mad31i  As  Long 
Dim  mad31v  As  String 
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1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 


mad31i  =  m. Modules . Find (smFindTag, 
Set  mad31  =  m. Modules (mad31i) 
mad31v  =  mad31 . Data ( "Expression" ) 
Maintenance .mad31 . value  =  mad31v 
Maintenance .mad31 .Addltem  "TRIA  ( 
Maintenance .mad31 .Addltem  "TRIA  ( 
Maintenance .mad31 .Addltem  "NORM  ( 
Maintenance .mad31 .Addltem  "EXPO  ( 
Maintenance .mad31 .Addltem  "UNIF  ( 
Dim  mau31u  As  Module 
Dim  mau31ui  As  Long 
Dim  mau31uv  As  String 
mau31ui  =  m. Modules . Find (smFindTag 
Set  mau31u  =  m. Modules (mau31ui) 
mau31uv  =  mau31u . Data ( "Units" ) 
Maintenance .mau31 . value  =  mau31uv 
Maintenance .mau31 .Addltem  "Seconds 
Maintenance .mau31 .Addltem  "Minutes 
Maintenance .mau31 .Addltem  "Hours" , 
Maintenance .mau31 .Addltem  "Days" , 


"ma31" ) 


0,  120,  180  )", 
Min,  Mode,  Max 
Mean,  StdDev  ) " 
Mean  ) " ,  3 
Min,  Max  )",  4 


,  "ma31") 


2 

3 


0 

1 


0 


2 


1 


Dim  mad32  As  Module 
Dim  mad32i  As  Long 
Dim  mad32v  As  String 

mad32i  =  m. Modules . Find (smFindTag,  "ma32") 

Set  mad32  =  m. Modules (mad32i) 
mad32v  =  mad32 . Data ( "Expression" ) 

Maintenance .mad32 . value  =  mad32v 

Maintenance .mad32 .Addltem  "TRIA  (  0,  120,  180  )",  0 
Maintenance .mad32 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad32 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad32 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad32 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau32u  As  Module 
Dim  mau32ui  As  Long 
Dim  mau32uv  As  String 

mau32ui  =  m. Modules . Find (smFindTag,  "ma32") 

Set  mau32u  =  m. Modules (mau32ui) 
mau32uv  =  mau32u . Data ( "Units" ) 

Maintenance .mau32 . value  =  mau32uv 
Maintenance .mau32 .Addltem  "Seconds",  0 
Maintenance .mau32 .Addltem  "Minutes",  1 
Maintenance .mau32 .Addltem  "Hours",  2 
Maintenance .mau32 .Addltem  "Days",  3 


Dim  mad33  As  Module 
Dim  mad33i  As  Long 
Dim  mad33v  As  String 

mad33i  =  m. Modules . Find (smFindTag,  "ma33") 

Set  mad33  =  m. Modules (mad33i) 
mad33v  =  mad33 . Data ( "Expression" ) 

Maintenance .mad33 . value  =  mad33v 

Maintenance .mad33 .Addltem  "TRIA  (  0,  120,180  )",  0 
Maintenance .mad33 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad33 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad33 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad33 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau33u  As  Module 
Dim  mau33ui  As  Long 
Dim  mau33uv  As  String 

mau33ui  =  m. Modules . Find (smFindTag,  "ma33") 

Set  mau33u  =  m. Modules (mau33ui) 
mau33uv  =  mau33u . Data ( "Units" ) 

Maintenance .mau33 . value  =  mau33uv 
Maintenance .mau33 .Addltem  "Seconds",  0 
Maintenance .mau33 .Addltem  "Minutes",  1 
Maintenance .mau33 .Addltem  "Hours",  2 
Maintenance .mau33 .Addltem  "Days",  3 
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Dim  mad34  As  Module 

Dim  mad34i  As  Long 

Dim  mad34v  As  String 

mad34i  =  m. Modules . Find (smFindTag, 

Set  mad34  =  m. Modules (mad34i) 

mad34v  =  mad34 . Data ( "Expression" ) 

Maintenance .mad34 . value  =  mad34v 

Maintenance .mad34 .Addltem  "TRIA  ( 

Maintenance .mad34 .Addltem  "TRIA  ( 

Maintenance .mad34 .Addltem  "NORM  ( 

Maintenance .mad34 .Addltem  "EXPO  ( 

Maintenance .mad34 .Addltem  "UNIF  ( 

Dim  mau34u  As  Module 

Dim  mau34ui  As  Long 

Dim  mau34uv  As  String 

mau34ui  =  m. Modules . Find (smFindTag 

Set  mau34u  =  m. Modules (mau34ui) 

mau34uv  =  mau34u . Data ( "Units" ) 

Maintenance .mau34 .value  =  mau34uv 

Maintenance .mau34 .Addltem  "Seconds 

Maintenance .mau34 .Addltem  "Minutes 

Maintenance .mau34 .Addltem  "Hours" , 

Maintenance .mau34 .Addltem  "Days" , 
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Dim  mad35  As  Module 
Dim  mad35i  As  Long 
Dim  mad35v  As  String 

mad35i  =  m. Modules . Find (smFindTag,  "ma35") 

Set  mad35  =  m. Modules (mad35i) 
mad35v  =  mad35 . Data ( "Expression" ) 

Maintenance .mad35 . value  =  mad35v 

Maintenance .mad35 .Addltem  "TRIA  (  81,  90,  126  )",  0 
Maintenance .mad35 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad35 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad35 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad35 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau35u  As  Module 
Dim  mau35ui  As  Long 
Dim  mau35uv  As  String 

mau35ui  =  m. Modules . Find (smFindTag,  "ma35") 

Set  mau35u  =  m. Modules (mau35ui) 
mau35uv  =  mau35u . Data ( "Units" ) 

Maintenance .mau35 . value  =  mau35uv 
Maintenance .mau35 .Addltem  "Seconds",  0 
Maintenance .mau35 .Addltem  "Minutes",  1 
Maintenance .mau35 .Addltem  "Hours",  2 
Maintenance .mau35 .Addltem  "Days",  3 


Dim  mad36  As  Module 
Dim  mad36i  As  Long 
Dim  mad36v  As  String 

mad36i  =  m. Modules . Find (smFindTag,  "ma36") 

Set  mad36  =  m. Modules (mad36i) 
mad36v  =  mad36 . Data ( "Expression" ) 

Maintenance .mad36 . value  =  mad36v 

Maintenance .mad36 .Addltem  "TRIA  (  162,  180,  252  )",  0 
Maintenance .mad36 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
Maintenance .mad36 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
Maintenance .mad36 .Addltem  "EXPO  (  Mean  )",  3 
Maintenance .mad36 .Addltem  "UNIF  (  Min,  Max  )",  4 
Dim  mau36u  As  Module 
Dim  mau36ui  As  Long 
Dim  mau36uv  As  String 

mau36ui  =  m. Modules . Find (smFindTag,  "ma36") 

Set  mau36u  =  m. Modules (mau36ui) 
mau36uv  =  mau36u . Data ( "Units" ) 

Maintenance .mau36 . value  =  mau36uv 
Maintenance .mau36 .Addltem  "Seconds",  0 
Maintenance .mau36 .Addltem  "Minutes",  1 
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Maintenance .mau36 .Addltem  "Hours",  2 
Maintenance .mau36 .Addltem  "Days",  3 


Dim  mad37  As  Module 

Dim  mad37i  As  Long 

Dim  mad37v  As  String 

mad37i  =  m. Modules . Find (smFindTag, 

Set  mad37  =  m. Modules (mad37i) 

mad37v  =  mad37 . Data ( "Expression" ) 

Maintenance .mad37 .value  =  mad37v 

Maintenance .mad37 .Addltem  "TRIA  ( 

Maintenance .mad37 .Addltem  "TRIA  ( 

Maintenance .mad37 .Addltem  "NORM  ( 

Maintenance .mad37 .Addltem  "EXPO  ( 

Maintenance .mad37 .Addltem  "UNIF  ( 

Dim  mau37u  As  Module 

Dim  mau37ui  As  Long 

Dim  mau37uv  As  String 

mau37ui  =  m. Modules . Find (smFindTag 

Set  mau37u  =  m. Modules (mau37ui) 

mau37uv  =  mau37u . Data ( "Units" ) 

Maintenance .mau37 . value  =  mau37uv 

Maintenance .mau37 .Addltem  "Seconds 

Maintenance .mau37 .Addltem  "Minutes 

Maintenance .mau37 .Addltem  "Hours" , 

Maintenance .mau37 .Addltem  "Days" , 
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Dim  map38  As  Module 
Dim  map38i  As  Long 
Dim  map38v  As  String 

map38i  =  m. Modules . Find (smFindTag,  "ma38") 
Set  map38  =  m. Modules (map38i) 

'map38v  =  map38 .  Data  ( "Percent  True  (0-100)  ") 
'Maintenance .map38 .value  =  map38v 
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If  countnumberl  <  100  Then  countnumberl 
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Maintenance .map38 .Addltem  countnumberl , 
If  countnumberl  <  100  Then  countnumberl 
Maintenance .map38 .Addltem  countnumberl , 


countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 
=  countnumberl  +  1 
countnumberl 


1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 


Dim  mad39  As  Module 

Dim  mad39i  As  Long 

Dim  mad39v  As  String 

mad3  9i  =  m . Modules . Find ( smFindTag, 

Set  mad39  =  m. Modules (mad39i) 

mad39v  =  mad39 . Data ( "Expression" ) 

Maintenance .mad39 .value  =  mad39v 

Maintenance .mad3 9 .Addltem  "TRIA  ( 

Maintenance .mad3 9 .Addltem  "TRIA  ( 

Maintenance .mad3 9 .Addltem  "NORM  ( 

Maintenance .mad3 9 .Addltem  "EXPO  ( 

Maintenance .mad39 .Addltem  "UNIF  ( 

Dim  mau39u  As  Module 

Dim  mau39ui  As  Long 

Dim  mau39uv  As  String 

mau3  9ui  =  m . Modules . Find ( smFindTag 

Set  mau39u  =  m. Modules (mau39ui) 

mau39uv  =  mau39u . Data ( "Units" ) 

Maintenance .mau3 9 . value  =  mau39uv 

Maintenance .mau39 .Addltem  "Seconds 

Maintenance .mau39 .Addltem  "Minutes 

Maintenance .mau39 .Addltem  "Hours" , 

Maintenance .mau39 .Addltem  "Days" , 


"ma39" ) 


27,  30,  42  )", 
Min,  Mode,  Max 
Mean,  StdDev  ) 
Mean  ) " ,  3 
Min,  Max  )",  4 


,  "ma39") 


2 

3 


0 

1 


0 

) 


2 


1 


1901  'End  of  code  for  this  question 


1902  End  Sub 


Pro ject/Mo tors 

1  Private  Sub  ComboBox2_Change ( ) 

2  End  Sub 

3  Private  Sub  ComboBox31_Change ( ) 

4  End  Sub 
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5  Private  Sub  CommandButton2_Click ( ) 

6  Me. Hide 

7  Maintenance . Show 

8  End  Sub 

9  Private  Sub  CommandButton3_Click ( ) 

10  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

11  Dim  msgResult  As  Integer 

12  If  (Modular . value  =  False  And  NotModular . value  =  False)  Then 

13  msgResult  =  MsgBox("Is  the  motor  modular?",  vbYesNo) 

14  If  msgResult  =  vbYes  Then 

15  Modular .value  =  True 

16  Else 

17  NotModular .value  =  True 

18  End  If 

19  End  If 

20  Dim  m  As  Model 

21  Set  m  =  ThisDocument .Model 

22  Dim  mon02  As  Module 

23  Dim  mon02i  As  Long 

24  mon02i  =  m. Modules . Find (smFindTag,  "mo02") 

25  Set  mon02  =  m. Modules (mon02i) 

26  mon02 . Data ( "Value" )  =  mot02.Text 

27  Dim  mo03  As  Module 

28  Dim  mo03i  As  Long 

29  mo03i  =  m. Modules . Find (smFindTag,  "mo03") 

30  Set  mo03  =  m. Modules (mo03i) 

31  mo03 . Data ( "Expression" )  =  mod03.Text 

32  mo03 . Data ( "Units" )  =  mou03.Text 

33  Dim  mo04  As  Module 

34  Dim  mo04i  As  Long 

35  mo04i  =  m. Modules . Find (smFindTag,  "mo04") 

36  Set  mo04  =  m. Modules (mo04i) 

37  mo04 . Data ( "Expression" )  =  mod04.Text 

38  mo04 . Data ( "Units" )  =  mou04.Text 

39  Dim  mo05  As  Module 

40  Dim  mo05i  As  Long 

41  mo05i  =  m. Modules . Find (smFindTag,  "mo05") 

42  Set  mo05  =  m. Modules (mo05i) 

43  mo05 . Data ( "Expression" )  =  mod05.Text 

44  mo05 . Data ( "Units" )  =  mou05.Text 

45  Dim  mo06  As  Module 

46  Dim  mo06i  As  Long 

47  mo06i  =  m. Modules . Find (smFindTag,  "mo06") 

48  Set  mo06  =  m. Modules (mo06i) 

49  moO 6 . Data ( "Expression" )  =  mod06.Text 

50  mo06 . Data ( "Units" )  =  mou06.Text 

54  Dim  mo07  As  Module 

55  Dim  mo07i  As  Long 

56  mo07i  =  m. Modules . Find (smFindTag,  "mo07") 

57  Set  mo07  =  m. Modules (mo07i) 

58  mo07 . Data ( "Percent  True")  =  mop07.Text 

59  Dim  mo07b  As  Module 

60  Dim  mo07bi  As  Long 

61  mo07bi  =  m. Modules . Find (smFindTag,  "mo07b") 

62  Set  mo07b  =  m. Modules (mo07bi) 
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63 

64 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 


mo07b . Data ( "Expression" )  =  mod07b.Text 
mo07b . Data ( "Units" )  =  mou07b.Text 

Dim  mo08  As  Module 
Dim  mo08i  As  Long 

mo08i  =  m. Modules . Find (smFindTag,  "mo08") 
Set  mo08  =  m. Modules (mo08i) 
mo08 . Data ( "Expression" )  =  mod08.Text 
mo08 . Data ( "Units" )  =  mou08.Text 

Dim  mo09  As  Module 
Dim  mo09i  As  Long 

mo09i  =  m. Modules . Find (smFindTag,  "mo09") 
Set  mo09  =  m. Modules (mo09i) 
mo09 . Data ( "Expression" )  =  mod09.Text 
mo09 . Data ( "Units" )  =  mou09.Text 

Dim  molO  As  Module 
Dim  molOi  As  Long 

molOi  =  m. Modules . Find (smFindTag,  "molO") 
Set  molO  =  m. Modules (molOi) 
molO . Data ( "Expression" )  =  modlO.Text 
molO . Data ( "Units" )  =  moulO.Text 

Dim  moll  As  Module 
Dim  molli  As  Long 

molli  =  m. Modules . Find (smFindTag,  "moll") 
Set  moll  =  m. Modules (molli) 
mol 1 . Data ( "Expression" )  =  modi 1. Text 
mol 1 . Data ( "Units" )  =  moull.Text 

Dim  mol2  As  Module 
Dim  mol2i  As  Long 

mol2i  =  m. Modules . Find (smFindTag,  "mol2") 
Set  mol2  =  m. Modules (mol2i) 
mol2 . Data ( "Expression" )  =  modl2.Text 
mol2 . Data ( "Units" )  =  moul2.Text 

Dim  mol3  As  Module 
Dim  mol3i  As  Long 

mol3i  =  m. Modules . Find (smFindTag,  "mol3") 
Set  mol3  =  m. Modules (mol3i) 
mol3 . Data ( "Expression" )  =  modl3.Text 
mol3 . Data ( "Units" )  =  moul3.Text 

Dim  mol4  As  Module 
Dim  mol4i  As  Long 

mol4i  =  m. Modules . Find (smFindTag,  "mol4") 
Set  mol4  =  m. Modules (mol4i) 
mol4 . Data ( "Expression" )  =  modl4.Text 
mol4 . Data ( "Units" )  =  moul4.Text 

Dim  mol5  As  Module 
Dim  mol5i  As  Long 

mol5i  =  m. Modules . Find (smFindTag,  "mol5") 
Set  mol5  =  m. Modules (mol5i) 
mol5 . Data ( "Expression" )  =  modl5.Text 
mol5 . Data ( "Units" )  =  moul5.Text 

Dim  mol 6  As  Module 
Dim  mol6i  As  Long 

mol6i  =  m. Modules . Find (smFindTag,  "mol6") 
Set  mol6  =  m. Modules (mol6i) 
mol  6 . Data ( "Expression" )  =  modi  6. Text 
mol  6 . Data ( "Units" )  =  moul6.Text 

Dim  mol7  As  Module 
Dim  mol7i  As  Long 

mol7i  =  m. Modules . Find (smFindTag,  "mol7") 
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125 

126 

127 

Set  mol7  =  m. Modules (mol7i) 

mol7 . Data ( "Expression" )  =  modl7.Text 

mol7 . Data ( "Units" )  =  moul7.Text 

128 

129 

130 

131 

132 

133 

Dim  mol 8  As  Module 

Dim  mol8i  As  Long 

mol8i  =  m. Modules . Find (smFindTag,  "mol8") 

Set  mol8  =  m. Modules (mol8i) 

mol8 . Data ( "Expression" )  =  modl8.Text 

mol8 . Data ( "Units" )  =  moul8.Text 

134 

135 

136 

137 

138 

139 

140 

141 

142 

Dim  modularl  As  Module 

Dim  modularli  As  Long 

modularli  =  m. Modules . Find (smFindTag,  "modularl") 

Set  modularl  =  m. Modules (modularli) 

If  Modular .value  =  True  Then 

modularl . Data (" Initial  Value")  =  "1" 

Else 

modularl . Data (" Initial  Value")  =  "0" 

End  If 

143 

144 

145 

Hierarchy . done02 . Visible  =  True 

Me . Hide 

polprelim. Show 

146 

End  Sub 

147 

148 

Private  Sub  CommandButton4  Click () 

Me . Hide 

149 

Mohelp . Show 

150 

End  Sub 

151 

Private  Sub  CommandButton5  Click () 

152  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 

buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 


153 

154 

155 

156 

157 

158 

159 

160 

161 

Dim  msgResult  As  Integer 

If  (Modular . value  =  False  And  NotModular . value  =  False)  Then 
msgResult  =  MsgBox("Is  the  motor  modular?",  vbYesNo) 

If  msgResult  =  vbYes  Then 

Modular .value  =  True 

Else 

NotModular . value  =  True 

End  If 

End  If 

162 

163 

Dim  m  As  Model 

Set  m  =  ThisDocument .Model 

164 

165 

166 

167 

168 

Dim  mon02  As  Module 

Dim  mon02i  As  Long 

mon02i  =  m. Modules . Find (smFindTag,  "mo02") 

Set  mon02  =  m. Modules (mon02i) 
mon02 . Data ( "Value" )  =  mot02.Text 

169 

170 

171 

172 

173 

174 

Dim  mo03  As  Module 

Dim  mo03i  As  Long 

mo03i  =  m. Modules . Find (smFindTag,  "mo03") 

Set  mo03  =  m. Modules (mo03i) 

mo03 . Data ( "Expression" )  =  mod03.Text 

mo03 . Data ( "Units" )  =  mou03.Text 

175 

176 

177 

178 

Dim  mo04  As  Module 

Dim  mo04i  As  Long 

mo04i  =  m. Modules . Find (smFindTag,  "mo04") 

Set  mo04  =  m. Modules (mo04i) 
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179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 


mo04 . Data ( "Expression" )  =  mod04.Text 
mo04 . Data ( "Units" )  =  mou04.Text 

Dim  mo05  As  Module 
Dim  mo05i  As  Long 

mo05i  =  m. Modules . Find (smFindTag,  "mo05") 
Set  mo05  =  m . Modules (mo05i ) 
mo05 . Data ( "Expression" )  =  mod05.Text 
mo05 . Data ( "Units" )  =  mou05.Text 

Dim  mo06  As  Module 
Dim  mo06i  As  Long 

mo06i  =  m. Modules . Find (smFindTag,  "mo06") 
Set  mo06  =  m. Modules (mo06i) 
mo06 . Data ( "Expression" )  =  mod06.Text 
mo06 . Data ( "Units" )  =  mou06.Text 

Dim  mo07  As  Module 
Dim  mo07i  As  Long 

mo07i  =  m. Modules . Find (smFindTag,  "mo07") 

Set  mo07  =  m . Modules (mo07i ) 

mo07 . Data ( "Percent  True")  =  mop07.Text 

Dim  mo07b  As  Module 
Dim  mo07bi  As  Long 

mo07bi  =  m. Modules . Find (smFindTag,  "mo07b") 
Set  mo07b  =  m. Modules (mo07bi) 
mo07b . Data ( "Expression" )  =  mod07b.Text 
mo07b . Data ( "Units" )  =  mou07b.Text 

Dim  mo08  As  Module 
Dim  mo08i  As  Long 

mo08i  =  m. Modules . Find (smFindTag,  "mo08") 
Set  mo08  =  m. Modules (mo08i) 
mo08 . Data ("Expression" )  =  mod08.Text 
mo08 . Data ( "Units" )  =  mou08.Text 

Dim  mo09  As  Module 
Dim  mo09i  As  Long 

mo09i  =  m. Modules . Find (smFindTag,  "mo09") 
Set  mo09  =  m. Modules (mo09i) 
mo09 . Data ( "Expression" )  =  mod09.Text 
mo09 . Data ( "Units" )  =  mou09.Text 

Dim  molO  As  Module 
Dim  molOi  As  Long 

molOi  =  m. Modules . Find (smFindTag,  "molO") 
Set  molO  =  m. Modules (molOi) 
molO . Data ( "Expression" )  =  modlO.Text 
molO . Data ( "Units" )  =  moulO.Text 

Dim  moll  As  Module 
Dim  molli  As  Long 

molli  =  m. Modules . Find (smFindTag,  "moll") 
Set  moll  =  m. Modules (molli) 
mol 1 . Data ( "Expression" )  =  modi 1. Text 
mol 1 . Data ( "Units" )  =  moull.Text 

Dim  mol2  As  Module 
Dim  mol2i  As  Long 

mol2i  =  m. Modules . Find (smFindTag,  "mol2") 
Set  mol2  =  m. Modules (mol2i) 
mol2 . Data ( "Expression" )  =  modl2.Text 
mol2 . Data ( "Units" )  =  moul2.Text 

Dim  mol3  As  Module 
Dim  mol3i  As  Long 

mol3i  =  m. Modules . Find (smFindTag,  "mol3") 
Set  mol3  =  m. Modules (mol3i) 
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238  mol3 . Data ( "Expression" )  =  modl3.Text 

239  mol3 . Data ( "Units" )  =  moul3.Text 

240  Dim  mol 4  As  Module 

241  Dim  mol4i  As  Long 

242  mol4i  =  m. Modules . Find (smFindTag,  "mol4") 

243  Set  mol4  =  m. Modules (mol4i) 

244  mol4 . Data ( "Expression" )  =  modl4.Text 

245  mol4 . Data ( "Units" )  =  moul4.Text 

246  Dim  mol 5  As  Module 

247  Dim  mol5i  As  Long 

248  mol5i  =  m. Modules . Find (smFindTag,  "mol5") 

249  Set  mol5  =  m. Modules (mol5i) 

250  mol5 . Data ( "Expression" )  =  modl5.Text 

251  mol5 . Data ( "Units" )  =  moul5.Text 

252  Dim  mol 6  As  Module 

253  Dim  mol6i  As  Long 

254  mol6i  =  m. Modules . Find (smFindTag,  "mol  6") 

255  Set  mol6  =  m. Modules (mol6i) 

256  mol6 . Data ( "Expression" )  =  modl6.Text 

257  mol6 . Data ( "Units" )  =  moul6.Text 

258  Dim  mol 7  As  Module 

259  Dim  mol7i  As  Long 

260  mol7i  =  m. Modules . Find (smFindTag,  "mol7") 

261  Set  mol7  =  m. Modules (mol7i) 

262  mol7 . Data ( "Expression" )  =  modl7.Text 

263  mol7 . Data ( "Units" )  =  moul7.Text 

264  Dim  mol 8  As  Module 

265  Dim  mol8i  As  Long 

266  mol8i  =  m. Modules . Find (smFindTag,  "mol8") 

267  Set  mol8  =  m. Modules (mol8i) 

268  mol8 . Data ( "Expression" )  =  modl8.Text 

269  mol8 . Data ( "Units" )  =  moul8.Text 

270  Dim  modularl  As  Module 

271  Dim  modularli  As  Long 

272  modularli  =  m. Modules . Find (smFindTag,  "modularl") 

273  Set  modularl  =  m. Modules (modularli) 

274  If  Modular .value  =  True  Then 

275  modularl . Data (" Initial  Value")  =  "1" 

276  Else 

277  modularl . Data ( "Initial  Value")  =  "0" 

278  End  If 

279  Hierarchy . done02 .Visible  =  True 

280  Me. Hide 

281  Hi  erarchy . Show 

282  End  Sub 

283  Private  Sub  Frame2_Click ( ) 

284  End  Sub 

285  Private  Sub  Labelll_Click ( ) 

286  End  Sub 

287  Private  Sub  Labell7_Click ( ) 

288  End  Sub 

289  Private  Sub  Label22_Click ( ) 

290  End  Sub 
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291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 


Private  Sub  Label23_Click ( ) 
End  Sub 

Private  Sub  Label24_Click ( ) 
End  Sub 

Private  Sub  mo01_Change ( ) 
End  Sub 

Private  Sub  mo01_Enter() 

End  Sub 

Private  Sub  mo07_Change ( ) 
End  Sub 

Private  Sub  mod03_Change ( ) 
End  Sub 

Private  Sub  mod06_Change ( ) 
End  Sub 

Private  Sub  Mod07a_Change ( ) 
End  Sub 

Private  Sub  modO 8_Change ( ) 
End  Sub 

Private  Sub  modlO_Change ( ) 
End  Sub 

Private  Sub  modi l_Change ( ) 
End  Sub 

Private  Sub  modl3_Change ( ) 
End  Sub 

Private  Sub  modl5_Change ( ) 
End  Sub 

Private  Sub  modi 8_Change ( ) 
End  Sub 

Private  Sub  Modular_Click ( ) 
Framel .Visible  =  False 
Frame2 .Visible  =  True 
Frame2 . Top  =  100 
Frame2.Left  =  100 

End  Sub 

Private  Sub  mon02_Change ( ) 
End  Sub 
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327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 
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381 

382 

383 

384 

385 

386 
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389 
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391 


Private  Sub  mop07_Change ( ) 

End  Sub 

Private  Sub  mou09_Change ( ) 

End  Sub 

Private  Sub  NotModular_Click ( ) 
Framel .Visible  =  True 
Frame2 .Visible  =  False 
Framel. Top  =  100 
Framel. Left  =  100 
End  Sub 

Private  Sub  OptionButtonl_Click ( ) 
End  Sub 

Private  Sub  ToggleButtonl_Click ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 

End  Sub 

Private  Sub  UserForm_Initialize ( ) 

Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


Dim  mon02  As  Module 
Dim  mon02i  As  Long 
Dim  mon02v  As  String 

mon02i  =  m . Modules . Find ( smFindTag,  "mo02") 

Set  mon02  =  m. Modules (mon02i) 

mon02v  =  mon02 . Data ( "Value" ) 

motors . mot02 . value  =  mon02v 

motors ,mot02 .Addltem  "1",  0 

motors ,mot02 .Addltem  "2",  1 

motors .mot02 .Addltem  "3",  2 

motors .mot02 .Addltem  "4",  3 

motors .mot02 .Addltem  "5",  4 

motors .mot02 .Addltem  "6",  5 


Dim  mod03  As  Module 

Dim  mod03i  As  Long 

Dim  mod03v  As  String 

mod03i  =  m . Modules . Find ( smFindTag, 

Set  mod03  =  m. Modules (mod03i) 

mod03v  =  mod03 . Data ( "Expression" ) 

motors . mod03 . value  =  mod03v 

motors ,mod03 .Addltem  "TRIA  (  108, 

motors ,mod03 .Addltem  "TRIA  (  Min, 

motors ,mod03 .Addltem  "NORM  (  Mean, 

motors ,mod03 .Addltem  "EXPO  (  Mean 

motors .mod03 .Addltem  "UNIF  (  Min, 

Dim  mou03u  As  Module 

Dim  mou03ui  As  Long 

Dim  mou03uv  As  String 

mou03ui  =  m. Modules . Find (smFindTag 

Set  mou03u  =  m. Modules (mou03ui) 

mou03uv  =  mou03u . Data ( "Units" ) 

motors . mou03 . value  =  mou03uv 

motors ,mou03 .Addltem  "Seconds",  0 

motors .mou03 .Addltem  "Minutes",  1 

motors .mou03 .Addltem  "Hours",  2 

motors .mou03 .Addltem  "Days",  3 


"mo03" ) 


120,  168  ) 
Mode,  mox 
StdDev  ) " 
)",  3 
mox  ) " ,  4 


,  "mo03") 
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392 

393 
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400 
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402 
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406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 


Dim  mod04  As  Module 
Dim  mod04i  As  Long 
Dim  mod04v  As  String 
mod04i  =  m. Modules . Find (smFindTag, 
Set  mod04  =  m. Modules (mod04i) 
mod04v  =  mod04 . Data ( "Expression" ) 
motors .mod04 .value  =  mod04v 
motors .mod04 .Addltem  "TRIA 
motors .mod04 .Addltem  "TRIA 
motors .mod04 .Addltem  "NORM 
motors .mod04 .Addltem  "EXPO 
motors .mod04 .Addltem  "UNIF 
Dim  mou04u  As  Module 
Dim  mou04ui  As  Long 
Dim  mou04uv  As  String 
mou04ui  =  m. Modules . Find (smFindTag, 
Set  mou04u  =  m. Modules (mou04ui) 
mou04uv  =  mou04u . Data ( "Units" ) 
motors .mou04 .value  =  mou04uv 
motors .mouO 4 .Addltem  "Seconds",  0 
motors .mou04 .Addltem  "Minutes",  1 
motors .mou04 .Addltem  "Hours",  2 
motors .mou04 .Addltem  "Days",  3 


"mo 04 " ) 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 


"mo04 " ) 


Dim  mod05  As  Module 
Dim  mod05i  As  Long 
Dim  mod05v  As  String 
mod05i  =  m. Modules . Find (smFindTag, 
Set  mod05  =  m. Modules (mod05i) 
mod05v  =  mod05 . Data ( "Expression" ) 
motors . mod05 . value  =  mod05v 
motors .mod05 .Addltem  "TRIA 
motors .mod05 .Addltem  "TRIA 
motors .mod05 .Addltem  "NORM 
motors .mod05 .Addltem  "EXPO 
motors . mod05 . Addltem  "UNIF 
Dim  mou05u  As  Module 
Dim  mou05ui  As  Long 
Dim  mou05uv  As  String 
mou05ui  =  m. Modules . Find (smFindTag, 
Set  mou05u  =  m. Modules (mou05ui) 
mou05uv  =  mou05u . Data ( "Units" ) 
motors . mou05 . value  =  mou05uv 
motors . mou05 . Addltem  "Seconds",  0 
motors .mou05 .Addltem  "Minutes",  1 
motors .mou05 .Addltem  "Hours",  2 
motors .mou05 .Addltem  "Days",  3 


"mo05" ) 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 


"mo05" ) 


Dim  mod06  As  Module 

Dim  mod06i  As  Long 

Dim  mod06v  As  String 

mod06i  =  m. Modules . Find (smFindTag, 

Set  mod06  =  m. Modules (mod06i) 

mod06v  =  mod06 . Data ( "Expression" ) 

motors . mod06 . value  =  mod06v 

motors .mod06 .Addltem  "TRIA  (  108, 

motors .mod06 .Addltem  "TRIA  (  Min, 

motors .mod06 .Addltem  "NORM  (  Mean, 

motors .mod06 .Addltem  "EXPO  (  Mean 

motors .mod06 .Addltem  "UNIF  (  Min, 

Dim  mou06u  As  Module 

Dim  mou06ui  As  Long 

Dim  mou06uv  As  String 

mou06ui  =  m. Modules . Find (smFindTag 

Set  mou06u  =  m. Modules (mou06ui) 

mou06uv  =  mou06u . Data ( "Units" ) 

motors .mou06 .value  =  mou06uv 

motors .mou06 .Addltem  "Seconds",  0 


"mo06" ) 


120,  168  ) 
Mode,  mox 
StdDev  ) " 
)",  3 
mox  ) " ,  4 


,  "mo06") 


0 

,  1 
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motors .mouO 6 . Addltem  "Minutes",  1 
motors .mouO 6 . Addltem  "Hours",  2 
motors .mouO 6 . Addltem  "Days",  3 


Dim  mo07  As  Module 
Dim  mo07i  As  Long 
Dim  mo07v  As  String 

mo07i  =  m. Modules . Find (smFindTag,  "mo07") 

Set  mo07  =  m. Modules (mo07i) 
mo07v  =  mo07 . Data ( "Percent  True") 
motors .mop07 . value  =  mo07v 

motors .mopO 7 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 . Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
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motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors . mopO  7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors . mopO  7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors . mopO  7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 


countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 


114 


595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 


If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors . mopO  7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors . mopO  7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mopO 7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mopO 7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mopO 7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 
motors .mopO 7 . Addltem 
If  countnumber  <  100 
motors .mopO 7 . Addltem 
If  countnumber  <  100 
motors .mop07 . Addltem 
If  countnumber  <  100 


Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 

countnumber,  countnumber 

Then  countnumber  =  countnumber  +  1 
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motors .mopO 7 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mopO 7 .Addltem  countnumber,  countnumber 
If  countnumber  <  100  Then  countnumber  =  countnumber  +  1 
motors .mop07 .Addltem  countnumber,  countnumber 


Dim  mod07b  As  Module 

Dim  mod07bi  As  Long 

Dim  mod07bv  As  String 

mod07bi  =  m. Modules . Find (smFindTag, 

Set  mod07b  =  m. Modules (mod07bi) 

mod07bv  =  mod07b . Data ( "Expression" ) 

motors . mod07b . value  =  mod07bv 

motors . mod07b .Addltem  "TRIA  (  108, 

motors .mod07b .Addltem  "TRIA  (  Min, 

motors . mod07b .Addltem  "NORM  (  Mean, 

motors .mod07b .Addltem  "EXPO  (  Mean 

motors .mod07b .Addltem  "UNIF  (  Min, 

Dim  mou07bu  As  Module 

Dim  mou07bui  As  Long 

Dim  mou07buv  As  String 

mou07bui  =  m. Modules . Find (smFindTag 

Set  mou07bu  =  m. Modules (mou07bui) 

mou07buv  =  mou07bu . Data ( "Units" ) 

motors . mou07b . value  =  mou07buv 

motors . mou07b .Addltem  "Seconds",  0 

motors . mou07b .Addltem  "Minutes",  1 

motors . mou07b .Addltem  "Hours",  2 

motors . mou07b .Addltem  "Days",  3 


"mo07b" ) 


120,  168  ) 
Mode,  mox 
StdDev  ) " 
)",  3 
mox  ) " ,  4 


,  "mo07b") 


0 

,  1 

2 


Dim  mod08  As  Module 
Dim  mod08i  As  Long 
Dim  mod08v  As  String 
mod08i  =  m. Modules . Find (smFindTag, 
Set  mod08  =  m. Modules (mod08i) 
mod08v  =  mod08 . Data ( "Expression" ) 
motors . modO 8 . value  =  mod08v 
motors . mod08 . Addltem  "TRIA 
motors . mod08 . Addltem  "TRIA 
motors .mod08 .Addltem  "NORM 
motors . mod08 . Addltem  "EXPO 
motors .modO 8 .Addltem  "UNIF 
Dim  mou08u  As  Module 
Dim  mou08ui  As  Long 
Dim  mou08uv  As  String 
mou08ui  =  m. Modules . Find (smFindTag, 
Set  mou08u  =  m. Modules (mou08ui) 
mou08uv  =  mou08u . Data ( "Units" ) 
motors . mou08 . value  =  mou08uv 
motors .mou08 .Addltem  "Seconds",  0 
motors .mou08 .Addltem  "Minutes",  1 
motors .mou08 .Addltem  "Hours",  2 
motors .mou08 .Addltem  "Days",  3 


'mo08") 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 


"mo08") 


1 


Dim  modO 9  As  Module 
Dim  mod09i  As  Long 
Dim  mod09v  As  String 

mod09i  =  m. Modules . Find (smFindTag,  "mo09") 

Set  mod09  =  m. Modules (mod09i) 
mod09v  =  mod09 . Data ( "Expression" ) 
motors . modO 9 . value  =  mod09v 

motors .mod09 .Addltem  "TRIA  (  54,  60,  84  )",  0 
motors .mod09 .Addltem  "TRIA  (  Min,  Mode,  mox  )",  1 
motors .mod09 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
motors .mod09 .Addltem  "EXPO  (  Mean  )",  3 
motors .mod09 .Addltem  "UNIF  (  Min,  mox  )",  4 
Dim  mou09u  As  Module 
Dim  mou09ui  As  Long 
Dim  mou09uv  As  String 
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mou09ui  =  m. Modules . Find (smFindTag,  "mo09") 

Set  mou09u  =  m. Modules (mou09ui) 

mou09uv  =  mou09u . Data ( "Units" ) 

motors . mou09 . value  =  mou09uv 

motors .mouO 9 .Addltem  "Seconds",  0 

motors .mou09 .Addltem  "Minutes",  1 

motors .mou09 .Addltem  "Hours",  2 

motors .mou09 .Addltem  "Days",  3 


Dim  modlO  As  Module 
Dim  modlOi  As  Long 
Dim  modlOv  As  String 
modlOi  =  m. Modules . Find (smFindTag, 
Set  modlO  =  m. Modules (modlOi) 
modlOv  =  modlO . Data ( "Expression" ) 
motors .modlO .value  =  modlOv 
motors .modlO .Addltem  "TRIA 
motors .modlO .Addltem  "TRIA 
motors .modlO .Addltem  "NORM 
motors .modlO .Addltem  "EXPO 
motors .modlO .Addltem  "UNIF 
Dim  moulOu  As  Module 
Dim  moulOui  As  Long 
Dim  moulOuv  As  String 
moulOui  =  m. Modules . Find (smFindTag, 
Set  moulOu  =  m. Modules (moulOui) 
moulOuv  =  moulOu . Data ( "Units" ) 
motors .moulO .value  =  moulOuv 
motors .moulO .Addltem  "Seconds",  0 
motors .moulO .Addltem  "Minutes",  1 
motors .moulO .Addltem  "Hours",  2 
motors .moulO .Addltem  "Days",  3 


"molO" ) 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 


"molO" ) 
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Dim  modll  As  Module 

Dim  modlli  As  Long 

Dim  modllv  As  String 

modlli  =  m. Modules . Find (smFindTag, 

Set  modll  =  m. Modules (modlli) 

modllv  =  modi 1 . Data ( "Expression" ) 

motors . modi 1 . value  =  modllv 

motors .modll .Addltem  "TRIA  (  108, 

motors .modll .Addltem  "TRIA  (  Min, 

motors .modll .Addltem  "NORM  (  Mean, 

motors .modll .Addltem  "EXPO  (  Mean 

motors .modll .Addltem  "UNIF  (  Min, 

Dim  moullu  As  Module 

Dim  moullui  As  Long 

Dim  moulluv  As  String 

moullui  =  m. Modules . Find (smFindTag 

Set  moullu  =  m. Modules (moullui) 

moulluv  =  moul lu . Data ( "Units" ) 

motors . moul 1 . value  =  moulluv 

motors .moull .Addltem  "Seconds",  0 

motors .moull .Addltem  "Minutes",  1 

motors .moull .Addltem  "Hours",  2 

motors . moul 1 . Addltem  "Days",  3 


"mol 1 " ) 


120,  168  ) 
Mode,  mox 
StdDev  ) " 
)",  3 
mox  ) " ,  4 


,  "moll") 


0 

,  1 
2 


Dim  modl2  As  Module 
Dim  modl2i  As  Long 
Dim  modl2v  As  String 
modl2i  =  m. Modules . Find (smFindTag 
Set  modl2  =  m. Modules (modl2i) 
modl2v  =  modl2 . Data ( "Expression" ) 
motors . modl2 . value  =  modl2v 
motors ,modl2 .Addltem  "TRIA  (  24, 
motors ,modl2 .Addltem  "TRIA  (  Min, 
motors .modl2 .Addltem  "NORM  (  Mean 
motors .modl2 .Addltem  "EXPO  (  Mean 
motors .modl2 .Addltem  "UNIF  (  Min, 


,  "mol2") 


30,  42  )", 
Mode,  mox 
,  StdDev  ) 
>",  3 
mox  ) " ,  4 


0 

) 


1 
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Dim  moul2u  As  Module 
Dim  moul2ui  As  Long 
Dim  moul2uv  As  String 

moul2ui  =  m. Modules . Find (smFindTag,  "mol2") 

Set  moul2u  =  m. Modules (moul2ui) 

moul2uv  =  moul2u . Data ( "Units" ) 

motors . moul2 . value  =  moul2uv 

motors .moul2 .Addltem  "Seconds",  0 

motors .moul2 .Addltem  "Minutes",  1 

motors .moul2 .Addltem  "Hours",  2 

motors .moul2 .Addltem  "Days",  3 


Dim  modi 3  As  Module 
Dim  modl3i  As  Long 
Dim  modl3v  As  String 

modl3i  =  m. Modules . Find (smFindTag,  "mol3") 
Set  modl3  =  m. Modules (modl3i) 
modl3v  =  modl3 . Data ( "Expression" ) 
motors .modl3 .value  =  modl3v 
motors .modi 3 .Addltem  "TRIA 
motors .modi 3 .Addltem  "TRIA 
motors .modi 3 .Addltem  "NORM 
motors .modi 3 .Addltem  "EXPO 
motors .modi 3 .Addltem  "UNIF 
Dim  moul3u  As  Module 
Dim  moul3ui  As  Long 
Dim  moul3uv  As  String 

moul3ui  =  m. Modules . Find (smFindTag,  "mol3") 

Set  moul3u  =  m. Modules (moul3ui) 

moul3uv  =  moul3u . Data ( "Units" ) 

motors .moul3 .value  =  moul3uv 

motors .moul3 .Addltem  "Seconds",  0 

motors .moul3 .Addltem  "Minutes",  1 

motors .moul3 .Addltem  "Hours",  2 

motors .moul3 .Addltem  "Days",  3 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 
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Dim  modi 4  As  Module 
Dim  modl4i  As  Long 
Dim  modl4v  As  String 
modl4i  =  m. Modules . Find (smFindTag, 
Set  modl4  =  m. Modules (modl4i) 
modl4v  =  modl4 . Data ( "Expression" ) 
motors .modl4 .value  =  modl4v 
motors .modl4 .Addltem  "TRIA 
motors .modl4 .Addltem  "TRIA 
motors ,modl4 .Addltem  "NORM 
motors ,modl4 .Addltem  "EXPO 
motors ,modl4 .Addltem  "UNIF 
Dim  moul4u  As  Module 
Dim  moul4ui  As  Long 
Dim  moul4uv  As  String 
moul4ui  =  m. Modules . Find (smFindTag, 
Set  moul4u  =  m. Modules (moul4ui) 
moul4uv  =  moul4u . Data ( "Units" ) 
motors ,moul4 . value  =  moul4uv 
motors ,moul4 .Addltem  "Seconds",  0 
motors ,moul4 .Addltem  "Minutes",  1 
motors .moul4 .Addltem  "Hours",  2 
motors .moul4 .Addltem  "Days",  3 


"mol 4" ) 


(  81,  90,  126  )", 
(  Min,  Mode,  mox 
(  Mean,  StdDev  ) " 
(  Mean  ) " ,  3 
(  Min,  mox  ) " ,  4 


"mol4r 


0 

",  1 

2 


Dim  modi 5  As  Module 
Dim  modl5i  As  Long 
Dim  modl5v  As  String 

modl5i  =  m. Modules . Find (smFindTag,  "mol5") 

Set  modl5  =  m. Modules (modl5i) 
modl5v  =  modl5 . Data ( "Expression" ) 
motors .modl5 .value  =  modl5v 

motors .modl5 .Addltem  "TRIA  (  54,  60,  84  )",  0 
motors .modl5 .Addltem  "TRIA  (  Min,  Mode,  mox  )",  1 
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motors .modi 5 . Addltem  "NORM  (  Mean,  StdDev  ) " , 
motors .modi 5 . Addltem  "EXPO  (  Mean  )",  3 
motors .modi 5 . Addltem  "UNIF  (  Min,  mox  )",  4 
Dim  moul5u  As  Module 
Dim  moul5ui  As  Long 
Dim  moul5uv  As  String 

moul5ui  =  m. Modules . Find (smFindTag,  "mol5") 

Set  moul5u  =  m. Modules (moul5ui) 

moul5uv  =  moul5u . Data ( "Units" ) 

motors .moul5 . value  =  moul5uv 

motors .moul5 . Addltem  "Seconds",  0 

motors .moul 5 .Addltem  "Minutes",  1 

motors .moul5 .Addltem  "Hours",  2 

motors .moul 5 .Addltem  "Days",  3 


Dim  modi  6  As  Module 
Dim  modl6i  As  Long 
Dim  modl6v  As  String 
modl6i  =  m. Modules . Find (smFindTag, 

Set  modi 6  =  m. Modules (modl6i) 
modl6v  =  modi  6 . Data ( "Expression" ) 
motors .modi 6 . value  =  modl6v 
motors .modi 6 . Addltem  "TRIA 
motors .modi 6 . Addltem  "TRIA 
motors .modi 6 . Addltem  "NORM 
motors .modi 6 . Addltem  "EXPO 
motors .modi 6 . Addltem  "UNIF 
Dim  moul6u  As  Module 
Dim  moul6ui  As  Long 
Dim  moul6uv  As  String 

moul6ui  =  m. Modules . Find (smFindTag,  "mol  6") 

Set  moul6u  =  m. Modules (moul6ui) 

moul6uv  =  moul6u . Data ( "Units" ) 

motors .moul6 .value  =  moul6uv 

motors .moul6 .Addltem  "Seconds",  0 

motors .moul 6 . Addltem  "Minutes",  1 

motors .moul 6 . Addltem  "Hours",  2 

motors .moul 6 . Addltem  "Days",  3 


"mol  6" 


(  54,  60,  84  )", 

(  Min,  Mode,  mox 
(  Mean,  StdDev  ) " 
(  Mean  ) " ,  3 
(  Min,  mox  )",  4 


1 


Dim  modi 7  As  Module 
Dim  modl7i  As  Long 
Dim  modl7v  As  String 

modl7i  =  m. Modules . Find (smFindTag,  "mol7") 
Set  modl7  =  m. Modules (modl7i) 
modl7v  =  modl7 . Data ( "Expression" ) 
motors .modl7 . value  = 
motors .modl7 .Addltem 
motors .modl7 .Addltem 
motors .modl7 .Addltem 
motors .modl7 .Addltem 
motors .modl7 .Addltem 
Dim  moul7u  As  Module 
Dim  moul7ui  As  Long 
Dim  moul7uv  As  String 

moul7ui  =  m. Modules . Find (smFindTag,  "mol7") 

Set  moul7u  =  m. Modules (moul7ui) 

moul7uv  =  moul7u . Data ( "Units" ) 

motors .moul7 . value  =  moul7uv 

motors .moul7 . Addltem  "Seconds",  0 

motors .moul7 . Addltem  "Minutes",  1 

motors .moul7 .Addltem  "Hours",  2 

motors .mou!7 .Addltem  "Days",  3 


modl7v 

"TRIA 

"TRIA 

"NORM 

"EXPO 

"UNIF 


(  54,  60,  84  )",  0 
(  Min,  Mode,  mox  )", 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  mox  )",  4 


1 


Dim  modi 8  As  Module 
Dim  modi 8 i  As  Long 
Dim  modl8v  As  String 

modl8i  =  m. Modules . Find (smFindTag,  "mol8") 
Set  modl8  =  m. Modules (modl8i) 
mod!8v  =  modl8 . Data ( "Expression" ) 
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928 

motors . modi 8 . value  = 

modi 8 v 

929 

motors .modi 8 .Addltem 

"TRIA  ( 

54, 

60,  84  )",  0 

930 

motors .modi 8 .Addltem 

"TRIA  ( 

Min, 

Mode,  mox  )", 

931 

motors . modi 8 . Addltem 

"NORM  ( 

Mean 

,  StdDev  )",  2 

932 

motors . modi 8 . Addltem 

"EXPO  ( 

Mean 

>",  3 

933 

motors . modi 8 . Addltem 

"UNIF  ( 

Min, 

mox  ) " ,  4 

934 

Dim  moul8u  As  Module 

935  Dim  moul8ui  As  Long 

936  Dim  moul8uv  As  String 

937  moul8ui  =  m. Modules . Find (smFindTag, 

938  Set  moul8u  =  m. Modules (moul8ui) 

939  moul8uv  =  moul 8u . Data ( "Units" ) 

940  motors .moul 8 . value  =  moul8uv 

941  motors .moul8 .Addltem  "Seconds",  0 

942  motors .moul8 .Addltem  "Minutes",  1 

943  motors .moul8 .Addltem  "Hours",  2 

944  motors .moul8 .Addltem  "Days",  3 


"mol8") 


945 


End  Sub 


Project/Modulel 

1  Type  tagOPENFILENAME 

2  IStructSize  As  Long 

3  hwndOwner  As  Long 

4  hlnstance  As  Long 

5  strFilter  As  String 

6  strCustomFilter  As  String 

7  nMaxCustFilter  As  Long 

8  nFilterlndex  As  Long 

9  strFile  As  String 

10  nMaxFile  As  Long 

11  strFileTitle  As  String 

12  nMaxFileTitle  As  Long 

13  str InitialDir  As  String 

14  strTitle  As  String 

15  Flags  As  Long 

16  nFileOffset  As  Integer 

17  nFileExtension  As  Integer 

18  strDefExt  As  String 

19  lCustData  As  Long 

20  lpfnHook  As  Long 

21  lpTemplateName  As  String 

22  End  Type 

23  Declare  Function  aht_apiGetOpenFileName  Lib  "comdlg32.dll"  _ 
"GetOpenFileNameA"  (OFN  As  tagOPENFILENAME)  As  Boolean 

24  Declare  Function  aht_apiGetSaveFileName  Lib  "comdlg32.dll"  _ 
"GetSaveFileNameA"  (OFN  As  tagOPENFILENAME)  As  Boolean 

25  Declare  Function  CommDlgExtendedError  Lib  "comdlg32.dll"  ()  As  Long 

26  Global  Const  ahtOFN_READONLY  =  &H1 

27  Global  Const  ahtOFN_OVERWRITE PROMPT  =  SH2 

28  Global  Const  ahtOFN_H I DEREADONL Y  =  SH4 

29  Global  Const  ahtOFN_NOCHANGEDIR  =  &H8 

30  Global  Const  ahtOFN_SHOWHELP  =  &H10 

31  '  You  won't  use  these. 

32  'Global  Const  ahtOFN_ENABLEHOOK  =  SH20 

33  'Global  Const  ahtOFN_ENABLETEMPLATE  =  &H40 

34  'Global  Const  aht OFN_ENABLETEMPLATEHANDLE  =  &H80 

35  Global  Const  ahtOFN_NOVAL I DATE  =  &H100 

36  Global  Const  ahtOFN_ALLOWMULT I SELECT  =  &H200 

37  Global  Const  ahtOFN_EXTENSIONDIFFERENT  =  &H400 

38  Global  Const  ahtOFN_PATHMU S TEX I S T  =  &H800 

39  Global  Const  ahtOFN_F I LEMU S TEX I S T  =  &H1000 

40  Global  Const  ahtOFN_CREATE PROMPT  =  &H2000 

41  Global  Const  ahtOFN_S HAREAWARE  =  &H4000 

42  Global  Const  ahtOFN_NOREADONLYRETURN  =  &H8000 

43  Global  Const  ahtOFN_NOTESTFILECREATE  =  &H10000 

44  Global  Const  ahtOFN_NONETWORKBUTTON  =  &H20000 

45  Global  Const  ahtOFN  NOLONGNAMES  =  &H40000 


Alias 

Alias 
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46  '  New  for  Windows  95 

47  Global  Const  ahtOFN_EXPLORER  =  SH80000 

48  Global  Const  ahtOFN_NODEREFERENCELINKS  =  &H100000 

49  Global  Const  ahtOFNJLONGNAMES  =  &H200000 

50  Function  ahtAddFilterltem ( strFilter  As  String,  _  strDescription 

As  String,  Optional  varltem  As  Variant)  As  String 

51  '  Tack  a  new  chunk  onto  the  file  filter. 

52  '  That  is,  take  the  old  value,  stick  onto  it  the  description, 

53  '  (like  "Databases")  ,  a  null  character,  the  skeleton 

54  '  (like  "*  .mdb ;  *  .mda" )  and  a  final  null  character. 

55  If  IsMissing (varltem)  Then  varltem  = 

56  ahtAddFilterltem  =  strFilter  &  _ 
strDescription  &  vbNullChar  &  _ 
varltem  &  vbNullChar 

57  End  Function 
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By  Ref 
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ByVal 
ByVal 
ByVal 
ByVal 
ByVal 
ByVal 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


Function  ahtCommonFileOpenSave ( 


Optional 


Flags  As  Variant, 
InitialDir  As  Variant, 
Filter  As  Variant,  _ 
Filterlndex  As  Variant, 
DefaultExt  As  Variant, 
FileName  As  Variant, 
DialogTitle  As  Variant, 
hwnd  As  Variant, 


Optional 

Optional 

Optional 

Optional 

Optional 

Optional 

Optional 

Optional 


OpenFile  As  Variant)  As  Variant 

This  is  the  entry  point  you'll  use  to  call  the  common 
file  open/save  dialog.  The  parameters  are  listed 
below,  and  all  are  optional. 

In: 

Flags:  one  or  more  of  the  ahtOFN_*  constants,  OR'd  together. 
InitialDir:  the  directory  in  which  to  first  look 
Filter:  a  set  of  file  filters,  set  up  by  calling 
AddFilterltem.  See  examples. 

Filterlndex:  1-based  integer  indicating  which  filter 
set  to  use,  by  default  (1  if  unspecified) 

DefaultExt:  Extension  to  use  if  the  user  doesn't  enter  one. 

Only  useful  on  file  saves. 

FileName :  Default  value  for  the  file  name  text  box. 

DialogTitle:  Title  for  the  dialog. 
hWnd:  parent  window  handle 

OpenFile:  Boolean  (True=Open  File/False=Save  As) 

Out: 

Return  Value:  Either  Null  or  the  selected  filename 
Dim  OFN  As  tagOPENFILENAME 
Dim  strFileName  As  String 
Dim  strFileTitle  As  String 
Dim  fResult  As  Boolean 
'  Give  the  dialog  a  caption  title. 

If  IsMissing ( InitialDir )  Then  InitialDir  =  CurDir 
If  IsMissing (Filter )  Then  Filter  =  ".doe" 

If  IsMissing (Filterlndex)  Then  Filterlndex  =  1 
If  IsMissing (Flags)  Then  Flags  =  0& 

If  IsMissing (DefaultExt)  Then  DefaultExt  =  ".doe" 

If  IsMissing (FileName)  Then  FileName  =  "MILePOST" 

If  IsMissing (DialogTitle)  Then  DialogTitle  =  "Save  your  MILePOST  file" 

'  XXXXXXXXXX  If  IsMissing  (hwnd)  Then  hwnd  =  Application  .hwnd.  Access .  App 
If  IsMissing (OpenFile)  Then  OpenFile  =  False 
'  Allocate  string  space  for  the  returned  strings. 

StrFileName  =  Left (FileName  &  String (256,  0),  256) 

StrFileTitle  =  String (256,  0) 

'  Set  up  the  data  structure  before  you  call  the  function 
With  OFN 

.IStructSize  =  Len (OFN) 
hwndOwner  =  hwnd 
.strFilter  =  Filter 
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100  . nFilterlndex  =  Filterlndex 

101  .strFile  =  strFileName 

102  .nMaxFile  =  Len (strFileName) 

103  . strFileTitle  =  strFileTitle 

104  . nMaxFileTitle  =  Len  (strFileTitle) 

105  . strTitle  =  DialogTitle 

106  .Flags  =  Flags 

107  .strDefExt  =  DefaultExt 

108  . strlnitialDir  =  InitialDir 

111  .hlnstance  =  0 

112  . strCustomFilter  =  "" 

113  . nMaxCustFilter  =  0 

114  .lpfnHook  =  0 

115  'New  for  NT  4 . 0 

116  .strCustomFilter  =  String (255,  0) 

117  .nMaxCustFilter  =  255 

118  End  With 

122  If  OpenFile  Then 

123  fResult  =  aht_apiGetOpenFileName (OFN) 

124  Else 

125  fResult  =  aht_apiGetSaveFileName (OFN) 

126  End  If 

130  If  fResult  Then 

136  If  Not  IsMissing (Flags)  Then  Flags  =  OFN. Flags 

137  ahtCommonFileOpenSave  =  TrimNull (OFN . strFile) 

138  Else 

139  ahtCommonFileOpenSave  =  vbNullString 

140  End  If 

141  End  Function 

142  Function  GetOpenFile ( Optional  varDirectory  As  Variant, 
varTitleForDialog  As  Variant)  As  Variant 

143  '  Here's  an  example  that  gets  an  Access  database  name. 

144  Dim  strFilter  As  String 

145  Dim  IngFlags  As  Long 

146  Dim  varFileName  As  Variant 

147  '  Specify  that  the  chosen  file  must  already  exist , 

148  '  don't  change  directories  when  you're  done 

149  '  Also,  don't  bother  displaying 

150  '  the  read-only  box.  It'll  only  confuse  people. 

151  IngFlags  =  ahtOFN_FILEMUSTEXIST  Or  _ 
ahtOFN_HI DEREADONLY  Or  ahtOFN_NOCHANGEDIR 

152  If  IsMissing (varDirectory)  Then 

153  varDirectory  =  "" 

154  End  If 

155  If  IsMissing (varTitleForDialog)  Then 

156  varTitleForDialog  =  "" 

157  End  If 

158  '  Define  the  filter  string  and  allocate  space  in  the  "c" 

159  '  string  Duplicate  this  line  with  changes  as  necessary  for 

160  '  more  file  templates . 

161  strFilter  =  ahtAddFilterltem (strFilter,  _ 

"Access  (*.mdb)",  " * . MDB; * . MDA" ) 

162  '  Now  actually  call  to  get  the  file  name. 

163  varFileName  =  ahtCommonFileOpenSave (  _ 

OpenFile : =True,  _ 

InitialDir : =var Directory, 

Filter :=str Filter, 

Flags : =lngFlags,  _ 

DialogTitle : =varTitleForDialog) 

164  If  Not  IsNull (varFileName)  Then 

165  varFileName  =  TrimNull (varFileName) 

166  End  If 

167  GetOpenFile  =  varFileName 

168  End  Function 

169  Function  TestltO 

170  Dim  strFilter  As  String 


Optional 
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171  Dim  IngFlags  As  Long 

172  strFilter  =  ahtAddFilterltem (strFilter,  "Access  Files  (*.mda,  *.mdb)" , 

"* .MDA; * .MDB" ) 

173  strFilter  =  ahtAddFilterltem (strFilter,  "dBASE  Files  (*.dbf)",  "*.DBFM ) 

174  strFilter  =  ahtAddFilterltem (strFilter,  "Text  Files  (*.txt)",  "*.TXT") 

175  strFilter  =  ahtAddFilterltem (strFilter,  "All  Files  (*.*)",  "*.*") 

176  MsgBox  "You  selected:  "  &  ahtCommonFileOpenSave ( InitialDir : ="C : \ " , 
Filter : =strFilter,  Filterlndex : =3,  Flags : =lngFlags, 

DialogTitle : ="Hello !  Open  Me!") 

179  Debug. Print  Hex (IngFlags) 

180  End  Function 

181  Private  Function  TrimNull (ByVal  strltem  As  String)  As  String 

182  Dim  intPos  As  Integer 

183  intPos  =  InStr (strltem,  vbNullChar) 

184  If  intPos  >  0  Then 

185  TrimNull  =  Left ( strltem,  intPos  -  1) 

186  Else 

187  TrimNull  =  strltem 

188  End  If 

189  End  Function 

Project/polprelim 


1  Private  Sub  CommandButton3_Click ( ) 

2  Me. Hide 

3  motors. Show 

4  End  Sub 


5  Private  Sub  CommandButton4_Click ( ) 
Hierarchy . done03 .Visible  =  True 


7  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

8  Dim  msgResult  As  Integer 

9  If  (poloptl . value  =  False  And  polopt2 .value  =  False)  Then 

10  msgResult  =  MsgBox ("You  must  make  a  preintegration  choice.  Will  the  2nd 
stage  and  payload  be  preintegrated?",  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  poloptl . value  =  True 

13  Else 

14  polopt2 . value  =  True 

15  End  If 

16  End  If 

17  If  (polopt3 . value  =  False  And  polopt4 . value  =  False)  Then 

18  msgResult  =  MsgBox ("You  must  make  an  integration  location  decision.  Click 
Yes  for  stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
stage  2  integration  off  the  launch  pad.",  vbYesNo) 

19  If  msgResult  =  vbYes  Then 

20  polopt3 .value  =  True 

21  Else 

22  polopt4 . value  =  True 

23  End  If 

24  End  If 

25  If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 .value  =  False) 


Then 

26 

Click  Yes 
will  take 

27 

28 

29 

30 

31 

32 


msgResult  =  MsgBox ("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt5 .value  =  True 
Else 

polopt6 .value  =  True 
End  If 
End  If 


decision . 
integration 


33  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 
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34 

Dim  m  As  Model 

35 

Set  m  =  ThisDocument .Model 

36 

Dim  popl  As  Module 

37 

Dim  popli  As  Long 

38 

popli  =  m. Modules . Find (smFindTag, 

"popl") 

39 

Set  popl  =  m. Modules (popli) 

40 

popl . Data ( "Expression" )  =  polcoml. 

Text 

41 

popl . Data ( "Units" )  =  polcom2.Text 

42 

Dim  pop2  As  Module 

43 

Dim  pop2i  As  Long 

44 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " ) 

45 

Set  pop2  =  m. Modules (pop2i) 

46 

pop2 . Data ( "Expression" )  =  polcom3. 

Text 

47 

pop2 . Data ( "Units" )  =  polcom4.Text 

48 

Dim  pop3  As  Module 

49 

Dim  pop3i  As  Long 

50 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" ) 

51 

Set  pop3  =  m. Modules (pop3i) 

52 

pop3 . Data ( "Expression" )  =  polcom5. 

Text 

53 

pop3 . Data ( "Units" )  =  polcom6.Text 

54 

Dim  pop4  As  Module 

55 

Dim  pop4i  As  Long 

56 

pop4i  =  m. Modules . Find (smFindTag, 

"pop4 " ) 

57 

Set  pop4  =  m. Modules (pop4i) 

58 

pop4 . Data ( "Expression" )  =  polcom7. 

Text 

59 

pop4 . Data ( "Units" )  =  polcom8.Text 

60 

Dim  pop5  As  Module 

61 

Dim  pop5i  As  Long 

62 

pop5i  =  m. Modules . Find (smFindTag, 

"pop5" ) 

63 

Set  pop5  =  m. Modules (pop5i) 

64 

pop5 . Data ( "Expression" )  =  polcom9. 

Text 

65 

pop5 . Data ( "Units" )  =  polcomlO . Text 

66 

Dim  pop 6  As  Module 

67 

Dim  pop6i  As  Long 

68 

pop6i  =  m. Modules . Find (smFindTag, 

"pop6" ) 

69 

Set  pop6  =  m. Modules (pop6i) 

70 

pop6 . Data ( "Expression" )  =  polcomll 

.  Text 

71 

pop6 . Data ( "Units" )  =  polcoml2 . Text 

72 

Dim  pop7  As  Module 

73 

Dim  pop7i  As  Long 

74 

pop7i  =  m. Modules . Find (smFindTag, 

"pop7 " ) 

75 

Set  pop7  =  m. Modules (pop7i) 

76 

pop7 . Data ( "Expression" )  =  polcoml3 

.  Text 

77 

pop7 . Data ( "Units" )  =  polcoml4 . Text 

78 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

tial 

values  for  the  variables  that  control  the  corresponding  decision  modules 

79 

Dim  povl  As  Module 

80 

Dim  povli  As  Long 

81 

povli  =  m. Modules . Find (smFindTag, 

"povl") 

82 

Set  povl  =  m. Modules (povli) 

83 

If  poloptl . value  =  True  Then 

84 

povl . Data (" Initial  Value")  =  "1" 

85 

Else 

86 

povl . Data (" Initial  Value")  =  "0" 

87 

End  If 

88 

Dim  pov2  As  Module 

89 

Dim  pov2i  As  Long 

90 

pov2i  =  m. Modules . Find (smFindTag, 

"pov2") 

91 

Set  pov2  =  m. Modules (pov2i) 
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92  If  polopt3 . value  =  True  Then 

93  pov2 . Data (" Initial  Value")  =  "1" 

94  Else 

95  pov2 . Data (" Initial  Value")  =  "0" 

96  End  If 

97  Dim  pov3  As  Module 

98  Dim  pov3i  As  Long 

99  pov3i  =  m. Modules . Find (smFindTag,  "pov3") 

100  Set  pov3  =  m. Modules (pov3i) 

101  If  polopt5 . value  =  True  Then 

102  pov3 . Data ( "Initial  Value")  =  "1" 

103  Else 

104  pov3 . Data (" Initial  Value")  =  "0" 

105  End  If 

106  'Code  below  checks  to  see  which  form  to  show  next  and  then  shows  the 
appropriate  form 

107  Me. Hide 

108  If  polopt3 . value  =  True  Then 

109  po2on.Show 

110  Elself  polopt4 . value  =  True  And  poloptl . value  =  True  Then 

111  po3of fpreint . Show 

112  Else 

113  po4of fnopreint . Show 

114  End  If 


115  End  Sub 

116  Private  Sub  CommandButton5_Click ( ) 

117  End  Sub 


118  Private  Sub  CommandButton6_Click ( ) 

119  Hierarchy . done03 .Visible  =  True 


120  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

121  Dim  msgResult  As  Integer 

122  If  (poloptl . value  =  False  And  polopt2 . value  =  False)  Then 

123  msgResult  =  MsgBox("You  must  make  a  preintegration  choice.  Will  the  2nd 
stage  and  payload  be  preintegrated?",  vbYesNo) 

124  If  msgResult  =  vbYes  Then 

125  poloptl  .value  =  True 

126  Else 

127  polopt2 . value  =  True 

128  End  If 

129  End  If 

130  If  (polopt3 . value  =  False  And  polopt4 .value  =  False)  Then 

131  msgResult  =  MsgBox("You  must  make  an  integration  location  decision.  Click 

Yes  for  stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
stage  2  integration  off  the  launch  pad.",  vbYesNo) 

132  If  msgResult  =  vbYes  Then 

133  polopt3 .value  =  True 

134  Else 

135  polopt4 . value  =  True 

136  End  If 

137  End  If 

138  If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 .value  =  False) 

Then 


139 

Click  Yes 
will  take 

140 

141 

142 

143 

144 


msgResult  =  MsgBox("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt5 .value  =  True 
Else 

polopt6 .value  =  True 
End  If 


decision . 
integration 
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145 


End  If 


146  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 


147 

Dim  m  As  Model 

148 

Set  m  =  ThisDocument .Model 

149 

Dim  popl  As  Module 

150 

Dim  popli  As  Long 

151 

popli  =  m. Modules . Find (smFindTag, 

"popl") 

152 

Set  popl  =  m. Modules (popli) 

153 

popl . Data ( "Expression" )  =  polcoml. 

Text 

154 

popl . Data ( "Units" )  =  polcom2.Text 

155 

Dim  pop2  As  Module 

156 

Dim  pop2i  As  Long 

157 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " ) 

158 

Set  pop2  =  m. Modules (pop2i) 

159 

pop2 . Data ( "Expression" )  =  polcom3. 

Text 

160 

pop2 . Data ( "Units" )  =  polcom4.Text 

161 

Dim  pop3  As  Module 

162 

Dim  pop3i  As  Long 

163 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" ) 

164 

Set  pop3  =  m. Modules (pop3i) 

165 

pop3 . Data ( "Expression" )  =  polcom5. 

Text 

166 

pop3 . Data ( "Units" )  =  polcom6.Text 

167 

Dim  pop4  As  Module 

168 

Dim  pop4i  As  Long 

169 

pop4i  =  m. Modules . Find (smFindTag, 

"pop4 " ) 

170 

Set  pop4  =  m. Modules (pop4i) 

171 

pop4 . Data ( "Expression" )  =  polcom7. 

Text 

172 

pop4 . Data ( "Units" )  =  polcom8.Text 

173 

Dim  pop5  As  Module 

174 

Dim  pop5i  As  Long 

175 

pop5i  =  m. Modules . Find (smFindTag, 

"pop5" ) 

176 

Set  pop5  =  m. Modules (pop5i) 

177 

pop5 . Data ( "Expression" )  =  polcom9. 

Text 

178 

pop5 . Data ( "Units" )  =  polcomlO . Text 

179 

Dim  pop6  As  Module 

180 

Dim  pop6i  As  Long 

181 

pop6i  =  m. Modules . Find (smFindTag, 

"pop6" ) 

182 

Set  pop6  =  m. Modules (pop6i) 

183 

pop6 . Data ( "Expression" )  =  polcomll 

.  Text 

184 

pop6 . Data ( "Units" )  =  polcoml2 . Text 

185 

Dim  pop7  As  Module 

186 

Dim  pop7i  As  Long 

187 

pop7i  =  m. Modules . Find (smFindTag, 

"pop7 " ) 

188 

Set  pop7  =  m. Modules (pop7i) 

189 

pop7 . Data ( "Expression" )  =  polcoml3 

.  Text 

190 

pop7 . Data ( "Units" )  =  polcoml4 . Text 

191 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

litial 

values  for  the  variables  that  control  the  corresponding  decision  modules 

192 

Dim  povl  As  Module 

193 

Dim  povli  As  Long 

194 

povli  =  m. Modules . Find (smFindTag, 

"povl") 

195 

Set  povl  =  m. Modules (povli) 

196 

If  poloptl . value  =  True  Then 

197 

povl . Data (" Initial  Value")  =  "1" 

198 

Else 

199 

povl . Data (" Initial  Value")  =  "0" 

200 

End  If 
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201  Dim  pov2  As  Module 

202  Dim  pov2i  As  Long 

203  pov2i  =  m. Modules . Find (smFindTag, 

204  Set  pov2  =  m. Modules (pov2i) 

205  If  polopt3 . value  =  True  Then 

206  pov2 . Data ( " Initial  Value")  =  "1 

207  Else 

208  pov2 . Data (" Initial  Value")  =  "0 

209  End  If 


210  Dim  pov3  As  Module 

211  Dim  pov3i  As  Long 

212  pov3i  =  m. Modules . Find (smFindTag, 

213  Set  pov3  =  m. Modules (pov3i) 

214  If  polopt5 .value  =  True  Then 

215  pov3 . Data (" Initial  Value")  =  "1 

216  Else 

217  pov3 . Data (" Initial  Value")  =  "0 

218  End  If 


219 

220 
221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 


Me . Hide 
Hierarchy . Show 
End  Sub 

Private  Sub  Labelll_Click ( ) 

End  Sub 

Private  Sub  Labell2_Click ( ) 

End  Sub 

Private  Sub  OptionButtonl_Click ( ) 
End  Sub 

Private  Sub  OptionButton2_Click ( ) 
End  Sub 

Private  Sub  OptionButton4_Click ( ) 
End  Sub 

Private  Sub  OptionButton6_Click ( ) 
End  Sub 

Private  Sub  polcoml_Change ( ) 

End  Sub 


236  Private  Sub  poloptl_Click ( ) 

237  polfrml .Visible  =  True 

238  po2on . po2frml .Visible  =  True 

239  po2on . po2frm2 .Visible  =  False 

240  po6erect .po6frm3 .Visible  =  False 


241  End  Sub 


242  Private  Sub  polopt2_Click ( ) 

243  polfrml .Visible  =  False 

244  po2on . po2frml .Visible  =  False 

245  po2on . po2frm2 .Visible  =  True 

246  po6erect .po6frm3 .Visible  =  True 

247  End  Sub 

248  Private  Sub  polopt3_Click ( ) 


"pov2") 


"pov3" ) 
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249  polfrm2 .Visible  =  True 

250  polfrm3 .Visible  =  False 

251  polfrm4 .Visible  =  False 

252  End  Sub 

253  Private  Sub  polopt4_Click ( ) 

254  polfrm2 .Visible  =  False 

255  polfrm3 .Visible  =  True 

256  polfrm4 .Visible  =  True 

257  End  Sub 


258  Private  Sub  polopt5_Click ( ) 

259  polfrm4 .Visible  =  False 

260  End  Sub 


261  Private  Sub  polopt6_Click ( ) 

262  polfrm4 .Visible  =  True 


263  End  Sub 


264  Private  Sub  TextBoxl_Change ( ) 

265  End  Sub 


266  Private  Sub  ToggleButtonl_Click ( ) 

267  End  Sub 

268  Private  Sub  UserForm_Click ( ) 

269  End  Sub 


270  Private  Sub  UserForm_Initialize ( ) 

271  Dim  m  As  Model 

272  Set  m  =  ThisDocument .Model 


273  'Code  below  populates  large  combo  boxes  for  PI-02  thru  PI-06  and  PI-08  and  PI- 

) 

274  Dim  popl  As  Module 

275  Dim  popli  As  Long 

276  Dim  poplv  As  String 

277  popli  =  m. Modules . Find (smFindTag,  "popl") 

278  Set  popl  =  m. Modules (popli) 

279  poplv  =  popl . Data ( "Expression" ) 


280 

polprelim.polcoml .value  = 

poplv 

281 

polprelim.polcoml .Addltem 

"TRIA 

(  27, 

30,  42  )",  0 

282 

polprelim.polcoml .Addltem 

"TRIA 

(  Min, 

Mode,  Max  )", 

283 

polprelim.polcoml .Addltem 

"NORM 

(  Mean 

,  StdDev  )",  2 

284 

polprelim.polcoml .Addltem 

"EXPO 

(  Mean 

)",  3 

285 

polprelim.polcoml .Addltem 

"UNIF 

(  Min, 

Max  ) " ,  4 

286  Dim  pop2  As  Module 

287  Dim  pop2i  As  Long 

288  Dim  pop2v  As  String 

289  pop2i  =  m. Modules . Find (smFindTag,  "pop2") 

290  Set  pop2  =  m. Modules (pop2i) 

291  pop2v  =  pop2 . Data ( "Expression" ) 


292 

293 

294 

295 

296 

297 


polprelim.polcom3 .value  = 
polprelim. polcom3 .Addltem 

pop2v 

"TRIA 

(  27, 

30,  42  )",  0 

polprelim. polcom3 .Addltem 

"TRIA 

(  Min, 

Mode,  Max  ) 

polprelim. polcom3 .Addltem 

"NORM 

(  Mean 

,  StdDev  ) " , 

polprelim. polcom3 .Addltem 

"EXPO 

(  Mean 

>",  3 

polprelim. polcom3 . Addltem 

"UNIF 

(  Min, 

Max  ) " ,  4 

298  Dim  pop3  As  Module 
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299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 


Dim  pop3i  As  Long 

Dim  pop3v  As  String 

pop3i  =  m . Modules . Find ( smFindTag, 

Set  pop3  =  m. Modules (pop3i) 

pop3v  =  pop3 . Data ( "Expression" ) 


polprelim. polcom5 . value  =  pop3v 
polprelim . polcom5 . Addltem  "TRIA 
polprelim . polcom5 .Addltem  "TRIA 
polprelim . polcom5 .Addltem  "NORM 
polprelim . polcom5 .Addltem  "EXPO 
polprelim. polcom5 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop4  As  Module 

Dim  pop4i  As  Long 

Dim  pop4v  As  String 

pop4i  =  m . Modules . Find ( smFindTag, 

Set  pop4  =  m. Modules (pop4i) 

pop4v  =  pop4 . Data ( "Expression" ) 


polprelim. polcom7 .value  =  pop4v 
polprelim. polcom7 .Addltem  "TRIA 
polprelim. polcom7 .Addltem  "TRIA 
polprelim. polcom7 .Addltem  "NORM 
polprelim . polcom7 .Addltem  "EXPO 
polprelim . polcom7 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop5  As  Module 

Dim  pop5i  As  Long 

Dim  pop5v  As  String 

pop5i  =  m. Modules . Find (smFindTag, 

Set  pop5  =  m. Modules (pop5i) 

pop5v  =  pop5 . Data ( "Expression" ) 


polprelim . polcom9 . value  =  pop5v 
polprelim . polcom9 .Addltem  "TRIA 
polprelim . polcom9 .Addltem  "TRIA 
polprelim. polcom9 .Addltem  "NORM 
polprelim. polcom9 .Addltem  "EXPO 
polprelim. polcom9 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop6  As  Module 

Dim  pop6i  As  Long 

Dim  pop6v  As  String 

pop6i  =  m . Modules . Find ( smFindTag, 

Set  pop6  =  m. Modules (pop6i) 

pop6v  =  pop6 . Data ( "Expression" ) 


polprelim. polcoml 1 . value  =  pop6v 
polprelim . polcoml 1 .Addltem  "TRIA 
polprelim . polcoml 1 .Addltem  "TRIA 
polprelim . polcoml 1 .Addltem  "NORM 
polprelim . polcoml 1 .Addltem  "EXPO 
polprelim. polcoml 1 .Addltem  "UNIF 


Dim  pop7  As  Module 

Dim  pop7i  As  Long 

Dim  pop7v  As  String 

pop7i  =  m . Modules . Find ( smFindTag, 

Set  pop7  =  m. Modules (pop7i) 

pop7v  =  pop7 . Data ( "Expression" ) 

polprelim. polcoml3 . value  =  pop7v 
polprelim . polcoml 3 . Addltem  "TRIA 
polprelim. polcoml 3 . Addltem  "TRIA 
polprelim. polcoml3 .Addltem  "NORM 
polprelim . polcoml 3 . Addltem  "EXPO 
polprelim . polcoml 3 . Addltem  "UNIF 


"pop3" ) 


18,  20,  28  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop4 " ) 


18,  20,  28  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop5" ) 


27,  30,  42  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop6" ) 


(  27,  30,  42  )",  0 
(  Min,  Mode,  Max  )",  1 

(  Mean,  StdDev  )",  2 

(  Mean  ) " ,  3 

(  Min,  Max  )",  4 


"pop7 " ) 


(  13.5,  15,  21  )",  0 
(  Min,  Mode,  Max  )",  1 
(  Mean,  StdDev  )",  2 
(  Mean  ) " ,  3 
(  Min,  Max  )",  4 
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358  'Code  below  populates  small  combo  boxes  for  PI-02  thru  PI-06  and  PI-08  and  PI- 

) 

359  Dim  poplu  As  Module 

360  Dim  poplui  As  Long 

361  Dim  popluv  As  String 

362  poplui  =  m. Modules . Find (smFindTag,  "popl" ) 

363  Set  poplu  =  m. Modules (poplui) 

364  popluv  =  poplu . Data ( "Units" ) 

365  polprelim.polcom2 .value  =  popluv 

366  polprelim.polcom2 . Addltem  "Seconds",  0 

367  polprelim. polcom2 .Addltem  "Minutes",  1 

368  polprelim. polcom2 .Addltem  "Hours",  2 

369  polprelim. polcom2 .Addltem  "Days",  3 

370  Dim  pop2u  As  Module 

371  Dim  pop2ui  As  Long 

372  Dim  pop2uv  As  String 

373  pop2ui  =  m. Modules . Find (smFindTag,  "pop2") 

374  Set  pop2u  =  m. Modules (pop2ui) 

375  pop2uv  =  pop2u . Data ( "Units" ) 

376  polprelim. polcom4 . value  =  pop2uv 

377  polprelim. polcom4 .Addltem  "Seconds",  0 

378  polprelim. polcom4 .Addltem  "Minutes",  1 

379  polprelim. polcom4 .Addltem  "Hours",  2 

380  polprelim. polcom4 .Addltem  "Days",  3 

381  Dim  pop3u  As  Module 

382  Dim  pop3ui  As  Long 

383  Dim  pop3uv  As  String 

384  pop3ui  =  m. Modules . Find (smFindTag,  "pop3") 

385  Set  pop3u  =  m. Modules (pop3ui) 

386  pop3uv  =  pop3u . Data ( "Units" ) 

387  polprelim. polcom6 .value  =  pop3uv 

388  polprelim. polcom6 .Addltem  "Seconds",  0 

389  polprelim. polcom6 .Addltem  "Minutes",  1 

390  polprelim. polcom6 .Addltem  "Hours",  2 

391  polprelim. polcom6 .Addltem  "Days",  3 

392  Dim  pop4u  As  Module 

393  Dim  pop4ui  As  Long 

394  Dim  pop4uv  As  String 

395  pop4ui  =  m. Modules . Find (smFindTag,  "pop4") 

396  Set  pop4u  =  m. Modules (pop4ui) 

397  pop4uv  =  pop4u . Data ( "Units" ) 

398  polprelim. polcom8 . value  =  pop4uv 

399  polprelim. polcom8 .Addltem  "Seconds",  0 

400  polprelim. polcom8 .Addltem  "Minutes",  1 

401  polprelim. polcom8 .Addltem  "Hours",  2 

402  polprelim. polcom8 .Addltem  "Days",  3 

403  Dim  pop5u  As  Module 

404  Dim  pop5ui  As  Long 

405  Dim  pop5uv  As  String 

406  pop5ui  =  m. Modules . Find (smFindTag,  "pop5") 

407  Set  pop5u  =  m. Modules (pop5ui) 

408  pop5uv  =  pop5u . Data ( "Units" ) 


409 

410 

411 

412 

413 


polprelim. polcomlO .value  = 
polprelim. polcomlO .Addltem 
polprelim. polcomlO .Addltem 
polprelim. polcomlO .Addltem 
polprelim. polcomlO .Addltem 


pop5uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


414  Dim  pop6u  As  Module 

415  Dim  pop6ui  As  Long 
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416  Dim  pop6uv  As  String 

417  pop6ui  =  m. Modules . Find (smFindTag,  "pop 6") 

418  Set  pop6u  =  m. Modules (pop6ui) 

419  pop6uv  =  pop6u . Data ( "Units" ) 

420  polprelim. polcoml2 . value  =  pop6uv 

421  polprelim. polcoml2 . Addltem  "Seconds",  0 

422  polprelim. polcoml2 .Addltem  "Minutes",  1 

423  polprelim. polcoml2 .Addltem  "Hours",  2 

424  polprelim. polcoml2 .Addltem  "Days",  3 

425  Dim  pop7u  As  Module 

426  Dim  pop7ui  As  Long 

427  Dim  pop7uv  As  String 

428  pop7ui  =  m. Modules . Find (smFindTag,  "pop7") 

429  Set  pop7u  =  m. Modules (pop7ui) 

430  pop7uv  =  pop7u . Data ( "Units" ) 

431  polprelim. polcoml4 .value  =  pop7uv 

432  polprelim. polcoml4 .Addltem  "Seconds",  0 

433  polprelim. polcoml4 . Addltem  "Minutes",  1 

434  polprelim. polcoml4 . Addltem  "Hours",  2 

435  polprelim. polcoml4 . Addltem  "Days",  3 

436  End  Sub 

Project/polprelim 


1  Private  Sub  CommandButton3_Click ( ) 

2  Me. Hide 

3  motors . Show 

4  End  Sub 


5  Private  Sub  CommandButton4_Click ( ) 
Hierarchy . done03 .Visible  =  True 


7  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

8  Dim  msgResult  As  Integer 

9  If  (poloptl . value  =  False  And  polopt2 . value  =  False)  Then 

10  msgResult  =  MsgBox("You  must  make  a  preintegration  choice.  Will  the  2nd 
stage  and  payload  be  preintegrated?",  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  poloptl . value  =  True 

13  Else 

14  polopt2 . value  =  True 

15  End  If 

16  End  If 

17  If  (polopt3 . value  =  False  And  polopt4 .value  =  False)  Then 

18  msgResult  =  MsgBox("You  must  make  an  integration  location  decision.  Click 

Yes  for  stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
stage  2  integration  off  the  launch  pad.",  vbYesNo) 

19  If  msgResult  =  vbYes  Then 

20  polopt3 .value  =  True 

21  Else 

22  polopt4 . value  =  True 

23  End  If 

24  End  If 

25  If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 .value  =  False) 


Then 

26 

Click  Yes 
will  take 

27 

28 

29 

30 

31 


msgResult  =  MsgBox("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt5 .value  =  True 
Else 

polopt6 .value  =  True 
End  If 


decision . 
integration 
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32 


End  If 


33  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 


34 

Dim  m  As  Model 

35 

Set  m  =  ThisDocument .Model 

36 

Dim  popl  As  Module 

37 

Dim  popli  As  Long 

38 

popli  =  m. Modules . Find (smFindTag, 

"popl") 

39 

Set  popl  =  m. Modules (popli) 

40 

popl . Data ( "Expression" )  =  polcoml. 

Text 

41 

popl . Data ( "Units" )  =  polcom2.Text 

42 

Dim  pop2  As  Module 

43 

Dim  pop2i  As  Long 

44 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " ) 

45 

Set  pop2  =  m. Modules (pop2i) 

46 

pop2 . Data ( "Expression" )  =  polcom3. 

Text 

47 

pop2 . Data ( "Units" )  =  polcom4.Text 

48 

Dim  pop3  As  Module 

49 

Dim  pop3i  As  Long 

50 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" ) 

51 

Set  pop3  =  m. Modules (pop3i) 

52 

pop3 . Data ( "Expression" )  =  polcom5. 

Text 

53 

pop3 . Data ( "Units" )  =  polcom6.Text 

54 

Dim  pop4  As  Module 

55 

Dim  pop4i  As  Long 

56 

pop4i  =  m. Modules . Find (smFindTag, 

"pop4 " ) 

57 

Set  pop4  =  m. Modules (pop4i) 

58 

pop4 . Data ( "Expression" )  =  polcom7. 

Text 

59 

pop4 . Data ( "Units" )  =  polcom8.Text 

60 

Dim  pop5  As  Module 

61 

Dim  pop5i  As  Long 

62 

pop5i  =  m. Modules . Find (smFindTag, 

"pop5" ) 

63 

Set  pop5  =  m. Modules (pop5i) 

64 

pop5 . Data ( "Expression" )  =  polcom9. 

Text 

65 

pop5 . Data ( "Units" )  =  polcomlO . Text 

66 

Dim  pop6  As  Module 

67 

Dim  pop6i  As  Long 

68 

pop6i  =  m. Modules . Find (smFindTag, 

"pop6" ) 

69 

Set  pop6  =  m. Modules (pop6i) 

70 

pop6 . Data ( "Expression" )  =  polcomll 

.  Text 

71 

pop6 . Data ( "Units" )  =  polcoml2 . Text 

72 

Dim  pop7  As  Module 

73 

Dim  pop7i  As  Long 

74 

pop7i  =  m. Modules . Find (smFindTag, 

"pop7 " ) 

75 

Set  pop7  =  m. Modules (pop7i) 

76 

pop7 . Data ( "Expression" )  =  polcoml3 

.  Text 

77 

pop7 . Data ( "Units" )  =  polcoml4 . Text 

78 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

tial 

values  for  the  variables  that  control  the  corresponding  decision  modules 

79 

Dim  povl  As  Module 

80 

Dim  povli  As  Long 

81 

povli  =  m. Modules . Find (smFindTag, 

"povl") 

82 

Set  povl  =  m. Modules (povli) 

83 

If  poloptl . value  =  True  Then 

84 

povl . Data (" Initial  Value")  =  "1" 

85 

Else 

86 

povl . Data (" Initial  Value")  =  "0" 

87 

End  If 
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88  Dim  pov2  As  Module 

89  Dim  pov2i  As  Long 

90  pov2i  =  m. Modules . Find (smFindTag,  "pov2") 

91  Set  pov2  =  m. Modules (pov2i) 

92  If  polopt3 . value  =  True  Then 

93  pov2 . Data (" Initial  Value")  =  "1" 

94  Else 

95  pov2 . Data ( "Initial  Value")  =  "0" 

96  End  If 

97  Dim  pov3  As  Module 

98  Dim  pov3i  As  Long 

99  pov3i  =  m. Modules . Find (smFindTag,  "pov3") 

100  Set  pov3  =  m. Modules (pov3i) 

101  If  polopt5 .value  =  True  Then 

102  pov3 . Data (" Initial  Value")  =  "1" 

103  Else 

104  pov3 . Data ( "Initial  Value")  =  "0" 

105  End  If 

106  'Code  below  checks  to  see  which  form  to  show  next  and  then  shows  the 
appropriate  form 

107  Me. Hide 

108  If  polopt3 .value  =  True  Then 

109  po2on.Show 

110  Elself  polopt4 .value  =  True  And  poloptl .value  =  True  Then 

111  po3of fpreint . Show 

112  Else 

113  po4of fnopreint . Show 

114  End  If 

115  End  Sub 

116  Private  Sub  CommandButton5_Click ( ) 

117  End  Sub 


118  Private  Sub  CommandButton6_Click ( ) 

119  Hierarchy . done03 . Visible  =  True 


120  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

121  Dim  msgResult  As  Integer 

122  If  (poloptl . value  =  False  And  polopt2 .value  =  False)  Then 

123  msgResult  =  MsgBox("You  must  make  a  preintegration  choice.  Will  the  2nd 
stage  and  payload  be  preintegrated?",  vbYesNo) 

124  If  msgResult  =  vbYes  Then 

125  poloptl . value  =  True 

126  Else 

127  polopt2 . value  =  True 

128  End  If 

129  End  If 

130  If  (polopt3 . value  =  False  And  polopt4 . value  =  False)  Then 

131  msgResult  =  MsgBox("You  must  make  an  integration  location  decision.  Click 

Yes  for  stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
stage  2  integration  off  the  launch  pad.",  vbYesNo) 

132  If  msgResult  =  vbYes  Then 

133  polopt3 .value  =  True 

134  Else 

135  polopt4 .value  =  True 

136  End  If 

137  End  If 

138  If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 . value  =  False) 

Then 


139 

Click  Yes 
will  take 

140 


msgResult  =  MsgBox("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 


decision . 
integration 
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141  polopt5 .value  =  True 

142  Else 

143  polopt6 .value  =  True 

144  End  If 

145  End  If 

146  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 
user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 


147 

Dim  m  As  Model 

148 

Set  m  =  ThisDocument .Model 

149 

Dim  popl  As  Module 

150 

Dim  popli  As  Long 

151 

popli  =  m. Modules . Find (smFindTag, 

"popl") 

152 

Set  popl  =  m. Modules (popli) 

153 

popl . Data ( "Expression" )  =  polcoml. 

Text 

154 

popl . Data ( "Units" )  =  polcom2.Text 

155 

Dim  pop2  As  Module 

156 

Dim  pop2i  As  Long 

157 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " ) 

158 

Set  pop2  =  m. Modules (pop2i) 

159 

pop2 . Data ( "Expression" )  =  polcom3. 

Text 

160 

pop2 . Data ( "Units" )  =  polcom4.Text 

161 

Dim  pop3  As  Module 

162 

Dim  pop3i  As  Long 

163 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" ) 

164 

Set  pop3  =  m. Modules (pop3i) 

165 

pop3 . Data ( "Expression" )  =  polcom5. 

Text 

166 

pop3 . Data ( "Units" )  =  polcom6.Text 

167 

Dim  pop4  As  Module 

168 

Dim  pop4i  As  Long 

169 

pop4i  =  m. Modules . Find (smFindTag, 

"pop4 " ) 

170 

Set  pop4  =  m. Modules (pop4i) 

171 

pop4 . Data ( "Expression" )  =  polcom7. 

Text 

172 

pop4 . Data ( "Units" )  =  polcom8.Text 

173 

Dim  pop5  As  Module 

174 

Dim  pop5i  As  Long 

175 

pop5i  =  m. Modules . Find (smFindTag, 

"pop5" ) 

176 

Set  pop5  =  m. Modules (pop5i) 

177 

pop5 . Data ( "Expression" )  =  polcom9. 

Text 

178 

pop5 . Data ( "Units" )  =  polcomlO . Text 

179 

Dim  pop6  As  Module 

180 

Dim  pop6i  As  Long 

181 

pop6i  =  m. Modules . Find (smFindTag, 

"pop6" ) 

182 

Set  pop6  =  m. Modules (pop6i) 

183 

pop6 . Data ( "Expression" )  =  polcomll 

.  Text 

184 

pop6 . Data ( "Units" )  =  polcoml2 . Text 

185 

Dim  pop7  As  Module 

186 

Dim  pop7i  As  Long 

187 

pop7i  =  m. Modules . Find (smFindTag, 

"pop7 " ) 

188 

Set  pop7  =  m. Modules (pop7i) 

189 

pop7 . Data ( "Expression" )  =  polcoml3 

.  Text 

190 

pop7 . Data ( "Units" )  =  polcoml4 . Text 

191 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

!  itial 

values  for  the  variables  that  control  the  corresponding  decision  modules 

192 

Dim  povl  As  Module 

193 

Dim  povli  As  Long 

194 

povli  =  m. Modules . Find (smFindTag, 

"povl") 

195 

Set  povl  =  m. Modules (povli) 

196 

If  poloptl .value  =  True  Then 

197 

povl . Data ( "Initial  Value")  =  "1" 
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198  Else 

199  povl . Data ( " Initial  Value")  = 

200  End  If 

201  Dim  pov2  As  Module 

202  Dim  pov2i  As  Long 

203  pov2i  =  m. Modules . Find (smFindTag, 

204  Set  pov2  =  m. Modules (pov2i) 

205  If  polopt3 . value  =  True  Then 

206  pov2 . Data (" Initial  Value")  =  "1 

207  Else 

208  pov2 . Data ( "Initial  Value")  =  "0 

209  End  If 


210  Dim  pov3  As  Module 

211  Dim  pov3i  As  Long 

212  pov3i  =  m. Modules . Find (smFindTag, 

213  Set  pov3  =  m. Modules (pov3i) 

214  If  polopt5 . value  =  True  Then 

215  pov3 . Data (" Initial  Value")  =  "1 

216  Else 

217  pov3 . Data (" Initial  Value")  =  "0 

218  End  If 


219 

220 
221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 


Me . Hide 
Hierarchy. Show 
End  Sub 

Private  Sub  Labell l_Click ( ) 

End  Sub 

Private  Sub  Labell2_Click ( ) 

End  Sub 

Private  Sub  OptionButtonl_Click ( ) 
End  Sub 

Private  Sub  OptionButton2_Click ( ) 
End  Sub 

Private  Sub  OptionButton4_Click ( ) 
End  Sub 

Private  Sub  OptionButton6_Click ( ) 
End  Sub 

Private  Sub  polcoml_Change ( ) 

End  Sub 


236  Private  Sub  poloptl_Click ( ) 

237  polfrml .Visible  =  True 

238  po2on . po2frml .Visible  =  True 

239  po2on . po2frm2 .Visible  =  False 

240  po6erect .po6frm3 .Visible  =  False 


241  End  Sub 


242  Private  Sub  polopt2_Click ( ) 

243  polfrml .Visible  =  False 

244  po2  on . po2frml .Visible  =  False 

245  po2on . po2frm2 .Visible  =  True 

246  po6erect . po6frm3 . Visible  =  True 


"pov2" ) 


"pov3" ) 
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247 

End  Sub 

248 

Private  Sub  polopt3  Click () 

249 

polfrm2 .Visible  =  True 

250 

polfrm3 .Visible  =  False 

251 

polfrm4 .Visible  =  False 

252 

End  Sub 

253 

Private  Sub  polopt4  Click () 

254 

polfrm2 .Visible  =  False 

255 

polfrm3 .Visible  =  True 

256 

polfrm4 .Visible  =  True 

257 

End  Sub 

258 

Private  Sub  polopt5  Click () 

259 

polfrm4 .Visible  =  False 

260 

End  Sub 

261 

Private  Sub  polopt6  Click () 

262 

polfrm4 .Visible  =  True 

263 

End  Sub 

264 

Private  Sub  TextBoxl  Change ( ) 

265 

End  Sub 

266 

Private  Sub  ToggleButtonl  Click () 

267 

End  Sub 

268 

Private  Sub  UserForm  Click () 

269 

End  Sub 

270 

Private  Sub  UserForm  Initialize () 

271 

Dim  m  As  Model 

272 

Set  m  =  ThisDocument .Model 

273 

) 

'Code  below  populates  large  combo 

boxes 

for 

PI -02 

thru 

274 

Dim  popl  As  Module 

275 

Dim  popli  As  Long 

276 

Dim  poplv  As  String 

277 

popli  =  m. Modules . Find (smFindTag, 

"popl" 

) 

278 

Set  popl  =  m. Modules (popli) 

279 

poplv  =  popl . Data ( "Expression" ) 

280 

polprelim.polcoml .value  =  poplv 

281 

polprelim.polcoml . Addltem  "TRIA  ( 

27,  30 

,  42 

)",  0 

282 

polprelim. polcoml . Addltem  "TRIA  ( 

Min,  Mode, 

Max  ) 

"  , 

i 

283 

polprelim. polcoml .Addltem  "NORM  ( 

Mean, 

StdDev  ) " , 

2 

284 

polprelim. polcoml .Addltem  "EXPO  ( 

Mean  ) 

",  3 

285 

polprelim. polcoml .Addltem  "UNIF  ( 

Min,  Max  ) 

",  4 

286 

Dim  pop2  As  Module 

287 

Dim  pop2i  As  Long 

288 

Dim  pop2v  As  String 

289 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " 

) 

290 

Set  pop2  =  m. Modules (pop2i) 

291 

pop2v  =  pop2 . Data ( "Expression" ) 

292 

polprelim. polcom3 . value  =  pop2v 

293 

polprelim. polcom3 .Addltem  "TRIA  ( 

27,  30 

,  42 

)",  0 

294 

polprelim. polcom3 .Addltem  "TRIA  ( 

Min,  Mode, 

Max  ) 

" , 

i 

295 

polprelim. polcom3 .Addltem  "NORM  ( 

Mean, 

StdDev  ) " , 

2 
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296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 


polprelim . polcom3 . Addltem  "EXPO  ( 
polprelim . polcom3 . Addltem  "UNIF  ( 

Dim  pop3  As  Module 

Dim  pop3i  As  Long 

Dim  pop3v  As  String 

pop3i  =  m. Modules . Find (smFindTag, 

Set  pop3  =  m. Modules (pop3i) 

pop3v  =  pop3 . Data ( "Expression" ) 


polprelim . polcom5 . value  =  pop3v 
polprelim. polcom5 .Addltem  "TRIA 
polprelim. polcom5 .Addltem  "TRIA 
polprelim . polcom5 .Addltem  "NORM 
polprelim. polcom5 .Addltem  "EXPO 
polprelim. polcom5 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop4  As  Module 

Dim  pop4i  As  Long 

Dim  pop4v  As  String 

pop4i  =  m . Modules . Find ( smFindTag, 

Set  pop4  =  m. Modules (pop4i) 

pop4v  =  pop4 . Data ( "Expression" ) 


polprelim . polcom7 . value  =  pop4v 
polprelim . polcom7 .Addltem  "TRIA 
polprelim . polcom7 .Addltem  "TRIA 
polprelim . polcom7 .Addltem  "NORM 
polprelim. polcom7 .Addltem  "EXPO 
polprelim. polcom7 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop5  As  Module 

Dim  pop5i  As  Long 

Dim  pop5v  As  String 

pop5i  =  m . Modules . Find ( smFindTag, 

Set  pop5  =  m. Modules (pop5i) 

pop5v  =  pop5 . Data ( "Expression" ) 


polprelim. polcom9 . value  =  pop5v 
polprelim. polcom9 .Addltem  "TRIA 
polprelim. polcom9 .Addltem  "TRIA 
polprelim . polcom9 .Addltem  "NORM 
polprelim . polcom9 .Addltem  "EXPO 
polprelim . polcom9 .Addltem  "UNIF 


( 

( 

( 

( 

( 


Dim  pop6  As  Module 

Dim  pop6i  As  Long 

Dim  pop6v  As  String 

pop6i  =  m. Modules . Find (smFindTag, 

Set  pop6  =  m. Modules (pop6i) 

pop6v  =  pop6 . Data ( "Expression" ) 


polprelim . polcoml 1 . value  =  pop6v 
polprelim. polcoml 1 .Addltem  "TRIA 
polprelim. polcomll .Addltem  "TRIA 
polprelim. polcoml 1 .Addltem  "NORM 
polprelim. polcoml 1 .Addltem  "EXPO 
polprelim. polcoml 1 .Addltem  "UNIF 


Dim  pop7  As  Module 

Dim  pop7i  As  Long 

Dim  pop7v  As  String 

pop7i  =  m. Modules . Find (smFindTag, 

Set  pop7  =  m. Modules (pop7i) 

pop7v  =  pop7 . Data ( "Expression" ) 


polprelim. polcoml3 .value  =  pop7v 
polprelim . polcoml 3 .Addltem  "TRIA 
polprelim . polcoml 3 .Addltem  "TRIA 


Mean  ) " ,  3 
Min,  Max  )",  4 


"pop3" ) 


18,  20,  28  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop4 " ) 


18,  20,  28  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop5" ) 


27,  30,  42  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


"pop6" ) 


(  27,  30,  42  )",  0 
(  Min,  Mode,  Max  )",  1 

(  Mean,  StdDev  )",  2 

(  Mean  ) " ,  3 

(  Min,  Max  )",  4 


"pop7 " ) 


(  13.5,  15,  21  )",  0 
(  Min,  Mode,  Max  )",  1 
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355  polprelim.polcoml3 . Addltem  "NORM  (  Mean,  StdDev  )",  2 

356  polprelim.polcoml3 .Addltem  "EXPO  (  Mean  )",  3 

357  polprelim.polcoml3 .Addltem  "UNIF  (  Min,  Max  )",  4 

358  'Code  below  populates  small  combo  boxes  for  PI-02  thru  PI-06  and  PI-08  and  PI- 
I 

359  Dim  poplu  As  Module 

360  Dim  poplui  As  Long 

361  Dim  popluv  As  String 

362  poplui  =  m. Modules . Find (smFindTag,  "popl") 

363  Set  poplu  =  m. Modules (poplui) 

364  popluv  =  poplu . Data ( "Units" ) 

365  polprelim. polcom2 . value  =  popluv 

366  polprelim. polcom2 .Addltem  "Seconds",  0 

367  polprelim. polcom2 .Addltem  "Minutes",  1 

368  polprelim. polcom2 .Addltem  "Hours",  2 

369  polprelim. polcom2 .Addltem  "Days",  3 

370  Dim  pop2u  As  Module 

371  Dim  pop2ui  As  Long 

372  Dim  pop2uv  As  String 

373  pop2ui  =  m. Modules . Find (smFindTag,  "pop2") 

374  Set  pop2u  =  m. Modules (pop2ui) 

375  pop2uv  =  pop2u . Data ( "Units" ) 

376  polprelim. polcom4 .value  =  pop2uv 

377  polprelim. polcom4 .Addltem  "Seconds",  0 

378  polprelim. polcom4 .Addltem  "Minutes",  1 

379  polprelim. polcom4 .Addltem  "Hours",  2 

380  polprelim. polcom4 .Addltem  "Days",  3 

381  Dim  pop3u  As  Module 

382  Dim  pop3ui  As  Long 

383  Dim  pop3uv  As  String 

384  pop3ui  =  m. Modules . Find (smFindTag,  "pop3") 

385  Set  pop3u  =  m. Modules (pop3ui) 

386  pop3uv  =  pop3u . Data ( "Units" ) 

387  polprelim. polcom6 . value  =  pop3uv 

388  polprelim. polcom6 .Addltem  "Seconds",  0 

389  polprelim. polcom6 .Addltem  "Minutes",  1 

390  polprelim. polcom6 .Addltem  "Hours",  2 

391  polprelim. polcom6 .Addltem  "Days",  3 

392  Dim  pop4u  As  Module 

393  Dim  pop4ui  As  Long 

394  Dim  pop4uv  As  String 

395  pop4ui  =  m. Modules . Find (smFindTag,  "pop4") 

396  Set  pop4u  =  m. Modules (pop4ui) 

397  pop4uv  =  pop4u . Data ( "Units" ) 

398  polprelim. polcom8 .value  =  pop4uv 

399  polprelim. polcom8 .Addltem  "Seconds",  0 

400  polprelim. polcom8 .Addltem  "Minutes",  1 

401  polprelim. polcom8 .Addltem  "Hours",  2 

402  polprelim. polcom8 .Addltem  "Days",  3 

403  Dim  pop5u  As  Module 

404  Dim  pop5ui  As  Long 

405  Dim  pop5uv  As  String 

406  pop5ui  =  m. Modules . Find (smFindTag,  "pop5") 

407  Set  pop5u  =  m. Modules (pop5ui) 

408  pop5uv  =  pop5u . Data ( "Units" ) 

409  polprelim. polcomlO . value  =  pop5uv 

410  polprelim. polcomlO .Addltem  "Seconds",  0 

411  polprelim. polcomlO .Addltem  "Minutes",  1 

412  polprelim. polcomlO .Addltem  "Hours",  2 
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413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 


polprelim. polcomlO . Addltem  "Days" , 

Dim  pop6u  As  Module 

Dim  pop6ui  As  Long 

Dim  pop6uv  As  String 

pop6ui  =  m. Modules . Find (smFindTag, 

Set  pop6u  =  m. Modules (pop6ui) 

pop6uv  =  pop6u . Data ( "Units" ) 

polprelim. polcoml2 .value  =  pop6uv 
polprelim. polcoml2 .Addltem  "Seconds 
polprelim. polcoml2 .Addltem  "Minutes 
polprelim. polcoml 2 .Addltem  "Hours" , 
polprelim. polcoml2 .Addltem  "Days", 

Dim  pop7u  As  Module 

Dim  pop7ui  As  Long 

Dim  pop7uv  As  String 

pop7ui  =  m . Modules . Find ( smFindTag, 

Set  pop7u  =  m. Modules (pop7ui) 

pop7uv  =  pop7u . Data ( "Units" ) 


polprelim. polcoml4 . value  = 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 


pop7uv 
"Seconds 
"Minutes 
"Hours" , 
"Days" , 


End  Sub 


pop6" ) 


,  0 

,  1 

2 


pop7 " ) 


,  0 

,  1 

2 
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Project/po2on 


1  Private  Sub  CommandButton3_Click ( ) 

2  End  Sub 

3  Private  Sub  CommandButton6_Click ( ) 

4  Me. Hide 

5  polprelim. Show 

6  End  Sub 


7  Private  Sub  CommandButton7_Click ( ) 

8  Hierarchy . done04 .Visible  =  True 

9  'Code  below  checks  if  any  option  button  sets  are  not  clicked,  and  if  so,  forces 
the  user  to  make  a  decision 

10  Dim  msgResult  As  Integer 

11  If  (po2optl .value  =  False  And  po2opt2 . value  =  False)  Then 

12  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 
hypergolic  fuels  required?",  vbYesNo) 

13  If  msgResult  =  vbYes  Then 

14  po2optl . value  =  True 

15  Else 

16  po2opt2 .value  =  True 

17  End  If 

18  End  If 

19  If  (po2optl .value  =  True  And  po2opt3 .value  =  False  And  po2opt4 .value  =  False) 

Then 

20  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

21  If  msgResult  =  vbYes  Then 

22  po2opt3 .value  =  True 

23  Else 

24  po2opt4 .value  =  True 

25  End  If 

26  End  If 

27  If  (po2opt5 . value  =  False  And  po2opt6 . value  =  False)  Then 

28  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

29  If  msgResult  =  vbYes  Then 

30  po2opt5 .value  =  True 

31  Else 

32  po2opt6. value  =  True 

33  End  If 

34  End  If 

35  If  (po2opt5 . value  =  True  And  po2opt7 . value  =  False  And  po2opt8 . value  =  False) 
Then 

36  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

37  If  msgResult  =  vbYes  Then 

38  po2opt7 .value  =  True 

39  Else 

40  po2opt8 . value  =  True 

41  End  If 

42  End  If 


43 

user  put 

44 

45 


'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 
into  the  combo  boxes  for  PI-02  thru  PI-10 
Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


46  Dim  pop47  As  Module 

47  Dim  pop47i  As  Long 

48  pop47i  =  m. Modules . Find (smFindTag,  "pop47") 

49  Set  pop47  =  m. Modules (pop47i) 

50  pop47 . Data ( "Expression" )  =  po2coml.Text 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 


pop47 . Data ( "Units" )  =  po2com2 . Text 

Dim  pop48  As  Module 
Dim  pop48i  As  Long 

pop48i  =  m. Modules . Find (smFindTag,  "pop48") 
Set  pop48  =  m. Modules (pop48i) 
pop48 . Data ( "Expression" )  =  po2com3.Text 
pop48 . Data ("Units" )  =  po2com4.Text 

Dim  pop49  As  Module 
Dim  pop49i  As  Long 

pop49i  =  m. Modules . Find (smFindTag,  "pop49") 
Set  pop49  =  m. Modules (pop49i) 
pop4 9 . Data ( "Expression" )  =  po2com5.Text 
pop49 . Data ("Units" )  =  po2com6.Text 

Dim  pop50  As  Module 
Dim  pop50i  As  Long 

pop50i  =  m. Modules . Find (smFindTag,  "pop50") 
Set  pop50  =  m. Modules (pop50i) 
pop50 . Data ( "Expression" )  =  po2com7.Text 
pop50 . Data ( "Units" )  =  po2com8.Text 

Dim  pop51  As  Module 
Dim  pop51i  As  Long 

pop51i  =  m. Modules . Find (smFindTag,  "pop51") 
Set  pop51  =  m. Modules (pop51i) 
pop51 . Data ( "Expression" )  =  po2com9 . Text 
pop51 . Data ("Units" )  =  po2coml0 . Text 

Dim  pop52  As  Module 
Dim  pop52i  As  Long 

pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
Set  pop52  =  m. Modules (pop52i) 
pop52 . Data ( "Expression" )  =  po2coml 1 . Text 
pop52 . Data ( "Units" )  =  po2coml2 . Text 

Dim  pop64  As  Module 
Dim  pop64i  As  Long 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 

If  po2frml .Visible  =  True  Then 

pop64 . Data ( "Expression" )  =  po2coml3 . Text 
pop64 . Data ("Units" )  =  po2coml4 . Text 
Else 

pop64 . Data ( "Expression" )  =  po2com37 . Text 
pop64 . Data ("Units" )  =  po2com38 . Text 
End  If 

Dim  pop53  As  Module 
Dim  pop53i  As  Long 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53 . Data ( "Expression" )  =  po2coml5 . Text 
pop53 . Data ( "Units" )  =  po2coml 6 . Text 

Dim  pop54  As  Module 
Dim  pop54i  As  Long 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
Set  pop54  =  m. Modules (pop54i) 
pop54 . Data ( "Expression" )  =  po2coml7 . Text 
pop54 . Data ("Units" )  =  po2coml 8 . Text 

Dim  pop55  As  Module 
Dim  pop55i  As  Long 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55 . Data ( "Expression" )  =  po2coml 9 . Text 
pop55 . Data ( "Units" )  =  po2com20 . Text 
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116 

117 

118 

119 

120 

121 
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125 
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128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 
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140 
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143 
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150 
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Dim  pop56  As  Module 
Dim  pop56i  As  Long 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56 . Data ( "Expression" )  =  po2com2 1 . Text 
pop56 . Data ( "Units" )  =  po2com22 . Text 

Dim  pop57  As  Module 
Dim  pop57i  As  Long 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57 . Data ( "Expression" )  =  po2com23 . Text 
pop57 . Data ( "Units" )  =  po2com24 . Text 

Dim  pop58  As  Module 
Dim  pop58i  As  Long 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58 . Data ( "Expression" )  =  po2com25 . Text 
pop58 . Data ( "Units" )  =  po2com2 6 . Text 

Dim  pop59  As  Module 
Dim  pop59i  As  Long 

pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59 . Data ( "Expression" )  =  po2com27 . Text 
pop59 . Data ("Units" )  =  po2com2 8 . Text 

Dim  pop60  As  Module 
Dim  pop60i  As  Long 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 
pop60 . Data ( "Expression" )  =  po2com29 . Text 
pop60 . Data ("Units" )  =  po2com30 . Text 

Dim  pop61  As  Module 
Dim  pop61i  As  Long 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 
Set  pop61  =  m. Modules (pop61i) 
pop61 . Data ( "Expression" )  =  po2com31 . Text 
pop61 . Data ("Units" )  =  po2com32 . Text 

Dim  pop62  As  Module 
Dim  pop62i  As  Long 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 
Set  pop62  =  m. Modules (pop62i) 
pop62 . Data ( "Expression" )  =  po2com33 . Text 
pop62 . Data ("Units" )  =  po2com34 . Text 

Dim  pop63  As  Module 
Dim  pop63i  As  Long 

pop63i  =  m. Modules . Find (smFindTag,  "pop63") 
Set  pop63  =  m. Modules (pop63i) 
pop63 . Data ( "Expression" )  =  po2com35 . Text 
pop63 . Data ( "Units" )  =  po2com36 . Text 

Dim  pop34  As  Module 
Dim  pop34i  As  Long 

pop34i  =  m. Modules . Find (smFindTag,  "pop34") 
Set  pop34  =  m. Modules (pop34i) 
pop34 . Data ( "Expression" )  =  po2com39 . Text 
pop34 . Data ("Units" )  =  po2com40 . Text 

Dim  pop71  As  Module 
Dim  pop71i  As  Long 

pop71i  =  m. Modules . Find (smFindTag,  "pop71") 

Set  pop71  =  m. Modules (pop71i) 

pop71 . Data ( "Expression" )  =  po2com39 . Text 
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170 

pop71 . Data  ( 

"Units" ) 

=  po2com40 . Text 

171 

Dim  pop35  As  Module 

172 

Dim  pop35i 

As  Long 

173 

pop35i  =  m. 

Modules . 

Find (smFindTag,  "pop35") 

174 

Set  pop35  = 

:  m. Modules (pop35i) 

175 

pop35 . Data  ( 

"Expression")  =  po2com41 . Text 

176 

pop35 . Data ( 

"Units" ) 

=  po2com42 . Text 

177 

Dim  pop77  As  Module 

178 

Dim  pop77i 

As  Long 

179 

pop77i  =  m. 

Modules . 

Find (smFindTag,  "pop77") 

180 

Set  pop77  = 

:  m. Modules (pop77i) 

181 

pop77 . Data ( 

"Expression")  =  po2com41 . Text 

182 

pop77 . Data ( 

"Units" ) 

=  po2com42 . Text 

183 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

initial  values  for  the  variables  that  control  the  corresponding  decision  modules 


184  Dim  pov6  As  Module 

185  Dim  pov6i  As  Long 

186  pov6i  =  m. Modules . Find (smFindTag, 

187  Set  pov6  =  m. Modules (pov6i) 

188  If  po2opt2 . value  =  True  Then 

189  pov6 . Data (" Initial  Value")  =  "0" 

190  Elself  po2opt3 .value  =  True  Then 

191  pov6 . Data (" Initial  Value")  =  "1" 

192  Else 

193  pov6 . Data ( "Initial  Value")  =  "2" 

194  End  If 


'pov6" ) 


195  Dim  pov7  As  Module 

196  Dim  pov7i  As  Long 

197  pov7i  =  m. Modules . Find (smFindTag,  "pov7") 

198  Set  pov7  =  m. Modules (pov7i) 

199  If  po2opt6 . value  =  True  Then 

200  pov7 . Data (" Initial  Value")  =  "0" 

201  Elself  po2opt7 . value  =  True  Then 

202  pov7 . Data (" Initial  Value")  =  "1" 

203  Else 

204  pov7 . Data (" Initial  Value")  =  "2" 

205  End  If 

206  'code  below  hides  the  current  form  and  shows  the  next  form 

207  Me. Hide 

208  po7umbilical . Show 

209  End  Sub 


210  Private  Sub  CommandButton9_Click ( ) 

211  Hierarchy . done04 .Visible  =  True 

212  'Code  below  checks  if  any  option  button  sets  are  not  clicked ,  and  if  so,  forces 
the  user  to  make  a  decision 

213  Dim  msgResult  As  Integer 

214  If  (po2optl . value  =  False  And  po2opt2 . value  =  False)  Then 

215  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 
hypergolic  fuels  required?",  vbYesNo) 

216  If  msgResult  =  vbYes  Then 

217  po2optl .value  =  True 

218  Else 

219  po2opt2 .value  =  True 

220  End  If 

221  End  If 

222  If  (po2optl . value  =  True  And  po2opt3 . value  =  False  And  po2opt4 . value  =  False) 

Then 

223  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

224  If  msgResult  =  vbYes  Then 
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225  po2opt3 .value  =  True 

226  Else 

227  po2opt4 . value  =  True 

228  End  If 

229  End  If 

230  If  (po2opt5 . value  =  False  And  po2opt6 . value  =  False)  Then 

231  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

232  If  msgResult  =  vbYes  Then 

233  po2opt5 .value  =  True 

234  Else 

235  po2opt6 .value  =  True 

236  End  If 

237  End  If 

238  If  (po2opt5 . value  =  True  And  po2opt7 . value  =  False  And  po2opt8 . value  =  False) 
Then 

239  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

240  If  msgResult  =  vbYes  Then 

241  po2opt7 . value  =  True 

242  Else 

243  po2opt8 . value  =  True 

244  End  If 

245  End  If 

246  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 

247  Dim  m  As  Model 

248  Set  m  =  ThisDocument .Model 

249  Dim  pop47  As  Module 

250  Dim  pop47i  As  Long 

251  pop47i  =  m. Modules . Find (smFindTag,  "pop47") 

252  Set  pop47  =  m. Modules (pop47i) 

253  pop47 . Data ( "Expression" )  =  po2coml.Text 

254  pop47 . Data ( "Units" )  =  po2com2.Text 

255  Dim  pop48  As  Module 

256  Dim  pop48i  As  Long 

257  pop48i  =  m. Modules . Find (smFindTag,  "pop48") 

258  Set  pop48  =  m. Modules (pop48i) 

259  pop48 . Data ( "Expression" )  =  po2com3.Text 

260  pop48 . Data ( "Units" )  =  po2com4.Text 

261  Dim  pop49  As  Module 

262  Dim  pop49i  As  Long 

263  pop49i  =  m. Modules . Find (smFindTag,  "pop49") 

264  Set  pop49  =  m. Modules (pop49i) 

265  pop49 . Data ("Expression")  =  po2com5.Text 

266  pop49. Data ("Units")  =  po2com6.Text 

267  Dim  pop50  As  Module 

268  Dim  pop50i  As  Long 

269  pop50i  =  m. Modules . Find (smFindTag,  "pop50") 

270  Set  pop50  =  m. Modules (pop50i) 

271  pop50 . Data ( "Expression" )  =  po2com7.Text 

272  pop50 . Data ( "Units" )  =  po2com8.Text 

273  Dim  pop51  As  Module 

274  Dim  pop51i  As  Long 

275  pop51i  =  m. Modules . Find (smFindTag,  "pop51") 

276  Set  pop51  =  m. Modules (pop51i) 

277  pop51 . Data ( "Expression" )  =  po2com9.Text 

278  pop51 . Data ( "Units" )  =  po2coml0 . Text 

279  Dim  pop52  As  Module 

280  Dim  pop52i  As  Long 

281  pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
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301 
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303 
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308 
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310 

311 
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313 
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316 
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319 
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Set  pop52  =  m. Modules (pop52i) 

pop52 . Data ( "Expression" )  =  po2coml 1 . Text 

pop52 . Data ( "Units" )  =  po2coml2 . Text 

Dim  pop64  As  Module 
Dim  pop64i  As  Long 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 

If  po2frml .Visible  =  True  Then 

pop64 . Data ( "Expression" )  =  po2coml3 . Text 
pop64 . Data ("Units" )  =  po2coml4 . Text 
Else 

pop64 . Data ( "Expression" )  =  po2com37 . Text 
pop64 .Data ("Units")  =  po2com38 . Text 
End  If 

Dim  pop53  As  Module 
Dim  pop53i  As  Long 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53 . Data ( "Expression" )  =  po2coml5 . Text 
pop53 . Data ("Units" )  =  po2coml 6 . Text 

Dim  pop54  As  Module 
Dim  pop54i  As  Long 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
Set  pop54  =  m. Modules (pop54i) 
pop54 . Data ( "Expression" )  =  po2coml7 . Text 
pop54 . Data ("Units" )  =  po2coml8 . Text 

Dim  pop55  As  Module 
Dim  pop55i  As  Long 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55 . Data ( "Expression" )  =  po2coml 9 . Text 
pop55 . Data ( "Units" )  =  po2com20 . Text 

Dim  pop56  As  Module 
Dim  pop56i  As  Long 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56 . Data ( "Expression" )  =  po2com21 . Text 
pop56 . Data ( "Units" )  =  po2com22 . Text 

Dim  pop57  As  Module 
Dim  pop57i  As  Long 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57 . Data ( "Expression" )  =  po2com23 . Text 
pop57 . Data ( "Units" )  =  po2com24 . Text 

Dim  pop58  As  Module 
Dim  pop58i  As  Long 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58 . Data ( "Expression" )  =  po2com25 . Text 
pop58 . Data ("Units" )  =  po2com2 6 . Text 

Dim  pop59  As  Module 
Dim  pop59i  As  Long 

pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59 . Data ( "Expression" )  =  po2com27 . Text 
pop59 . Data ("Units" )  =  po2com28 . Text 

Dim  pop60  As  Module 
Dim  pop60i  As  Long 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 


145 


342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 
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pop60 . Data ( "Expression" )  =  po2com29 . Text 
pop60 . Data ( "Units" )  =  po2com30 . Text 

Dim  pop61  As  Module 
Dim  pop61i  As  Long 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 

Set  pop61  =  m. Modules (pop61i) 

pop61 . Data ( "Expression" )  =  po2com31 . Text 

pop61 . Data ("Units" )  =  po2com32 . Text 

Dim  pop62  As  Module 
Dim  pop62i  As  Long 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 

Set  pop62  =  m. Modules (pop62i) 

pop62 . Data ( "Expression" )  =  po2com33 . Text 

pop62 . Data ( "Units" )  =  po2com34 . Text 

Dim  pop63  As  Module 
Dim  pop63i  As  Long 

pop63i  =  m . Modules . Find ( smFindTag,  "pop63") 

Set  pop63  =  m. Modules (pop63i) 

pop63 . Data ( "Expression" )  =  po2com35 . Text 

pop63 . Data ( "Units" )  =  po2com36 . Text 

Dim  pop34  As  Module 
Dim  pop34i  As  Long 

pop34i  =  m . Modules . Find ( smFindTag,  "pop34") 

Set  pop34  =  m. Modules (pop34i) 

pop34 . Data ( "Expression" )  =  po2com39 . Text 

pop34 . Data ( "Units" )  =  po2com40 . Text 

Dim  pop71  As  Module 
Dim  pop71i  As  Long 

pop71i  =  m . Modules . Find ( smFindTag,  "pop71") 

Set  pop71  =  m. Modules (pop71i) 

pop71 . Data ( "Expression" )  =  po2com39 . Text 

pop71 . Data ( "Units" )  =  po2com40 . Text 

Dim  pop35  As  Module 
Dim  pop35i  As  Long 

pop35i  =  m. Modules . Find (smFindTag,  "pop35") 

Set  pop35  =  m. Modules (pop35i) 

pop35 . Data ( "Expression" )  =  po2com41 . Text 

pop35 . Data ( "Units" )  =  po2com42 . Text 

Dim  pop77  As  Module 
Dim  pop77i  As  Long 

pop77i  =  m. Modules . Find (smFindTag,  "pop77") 

Set  pop77  =  m. Modules (pop77i) 

pop77 . Data ( "Expression" )  =  po2com41 . Text 

pop77 . Data ( "Units" )  =  po2com42 . Text 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 
Dim  pov6  As  Module 
Dim  pov6i  As  Long 

pov6i  =  m. Modules . Find (smFindTag,  "pov6") 

Set  pov6  =  m. Modules (pov6i) 

If  po2opt2 . value  =  True  Then 

pov6 . Data ( "Initial  Value")  =  "0" 

Elself  po2opt3 .value  =  True  Then 
pov6 . Data (" Initial  Value")  =  "1" 

Else 

pov6 . Data ( "Initial  Value")  =  "2" 

End  If 

Dim  pov7  As  Module 
Dim  pov7i  As  Long 

pov7i  =  m. Modules . Find (smFindTag,  "pov7") 
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Set  pov7  =  m. Modules (pov7i) 

If  po2opt6 . value  =  True  Then 

pov7 . Data (" Initial  Value")  =  "0" 

Elself  po2opt7 . value  =  True  Then 
pov7 . Data (" Initial  Value")  =  "1" 

Else 

pov7 . Data (" Initial  Value")  =  "2" 

End  If 

'code  below  hides  the  current  form  and  shows  the  main  form 
Me . Hide 
Hierarchy . Show 

End  Sub 

Private  Sub  Labell l_Click ( ) 

End  Sub 

Private  Sub  Labell2_Click ( ) 

End  Sub 

Private  Sub  Label23_Click ( ) 

End  Sub 

Private  Sub  Label6_Click ( ) 

End  Sub 

Private  Sub  OptionButtonl_Click ( ) 

End  Sub 

Private  Sub  OptionButton2_Click ( ) 

End  Sub 

Private  Sub  OptionButton4_Click ( ) 

End  Sub 

Private  Sub  OptionButton6_Click ( ) 

End  Sub 

Private  Sub  po2optl_Click ( ) 
po2frm3 .Visible  =  True 

End  Sub 

Private  Sub  po2opt2_Click ( ) 
po2frm3 .Visible  =  False 

End  Sub 

Private  Sub  po2opt5_Click ( ) 
po2frm4 .Visible  =  True 

End  Sub 

Private  Sub  po2opt6_Click ( ) 
po2frm4 .Visible  =  False 

End  Sub 

Private  Sub  TextBox23_Change ( ) 
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End  Sub 


Private  Sub  ToggleButtonl_Click ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 

End  Sub 


Private  Sub  UserForm_Initialize ( ) 

Dim  m  As  Model 

Set  m  =  ThisDocument .Model 

'Code  below  populates  large  combo  boxes  for  OP-01  thru  OP-25 
Dim  pop47  As  Module 
Dim  pop47i  As  Long 
Dim  pop47v  As  String 

pop47i  =  m . Modules . Find ( smFindTag,  "pop47") 

Set  pop47  =  m. Modules (pop47i) 
pop47v  =  pop47 . Data ( "Expression" ) 


po2on . po2coml . value  = 
po2on . po2coml . Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 


pop47v 

"TRIA  (  54,  60,  84  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNI F  (  Min,  Max  )",  4 


2 


1 


Dim  pop48  As  Module 
Dim  pop48i  As  Long 
Dim  pop48v  As  String 

pop48i  =  m . Modules . Find ( smFindTag,  "pop48") 
Set  pop48  =  m. Modules (pop48i) 
pop48v  =  pop48 . Data ( "Expression" ) 


po2on . po2com3 .value  =  pop48v 


po2on . po2com3 .Addltem 

"TRIA 

(  108 , 

120, 

168  )  ' 

',  0 

po2on . po2com3 .Addltem 

"TRIA 

(  Min, 

Mode, 

.  Max  ) 

",  1 

po2on . po2com3 .Addltem 

"NORM 

(  Mean, 

,  StdDev  ) " , 

2 

po2on . po2com3 .Addltem 

"EXPO 

(  Mean 

>",  3 

po2on . po2com3 .Addltem 

"UNIF 

(  Min, 

Max  ) 

",  4 

Dim  pop49  As  Module 
Dim  pop49i  As  Long 
Dim  pop49v  As  String 

pop49i  =  m. Modules . Find ( smFindTag,  "pop49") 
Set  pop49  =  m. Modules (pop49i) 
pop49v  =  pop49 . Data ( "Expression" ) 


po2on .po2com5 .value  = 
po2on . po2com5 .Addltem 

pop49v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2com5 .Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2com5 .Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2com5 .Addltem 

"EXPO  ( 

Mean 

>",  3 

po2on . po2com5 .Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop50  As  Module 
Dim  pop50i  As  Long 
Dim  pop50v  As  String 

pop50i  =  m . Modules . Find (smFindTag,  "pop50") 
Set  pop50  =  m. Modules (pop50i) 
pop50v  =  pop50 . Data ( "Expression" ) 


po2on . po2com7 . value  =  pop50v 

po2on . po2com7 .Addltem  "TRIA  (  81,  90,  126  )",  0 
po2on . po2com7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po2on . po2com7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po2on . po2com7 .Addltem  "EXPO  (  Mean  )",  3 
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po2on . po2com7 . Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop51  As  Module 
Dim  pop51i  As  Long 
Dim  pop51v  As  String 

pop51i  =  m. Modules . Find (smFindTag,  "pop51") 
Set  pop51  =  m. Modules (pop51i) 
pop51v  =  pop51 . Data ( "Expression" ) 


po2on . po2com9 . value  = 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 


pop51v 

"TRIA  (  36,  40,  56  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


2 


1 


Dim  pop52  As  Module 
Dim  pop52i  As  Long 
Dim  pop52v  As  String 

pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
Set  pop52  =  m. Modules (pop52i) 
pop52v  =  pop52 . Data ( "Expression" ) 


po2on . po2coml 1 . value  = 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 


pop52v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop64  As  Module 
Dim  pop64i  As  Long 
Dim  pop64v  As  String 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 
pop64v  =  pop64 . Data ( "Expression" ) 


po2on . po2coml3 . value  = 
po2on . po2coml3 .Addltem 

pop64v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2coml3 . Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2coml3 . Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2coml3 . Addltem 

"EXPO  ( 

Mean 

)",  3 

po2on . po2com!3 . Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


po2on . po2com37 . value  = 
po2on . po2com37 . Addltem 

pop64v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2com37 . Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2com37 . Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2com37 . Addltem 

"EXPO  ( 

Mean 

)",  3 

po2on . po2com37 . Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop53  As  Module 
Dim  pop53i  As  Long 
Dim  pop53v  As  String 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53v  =  pop53 . Data ( "Expression" ) 


po2on . po2coml5 . value  = 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2com!5 . Addltem 


pop53v 

"TRIA  ( 

54, 

60,  84  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop54  As  Module 
Dim  pop54i  As  Long 
Dim  pop54v  As  String 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
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Set  pop54  =  m. Modules (pop54i) 
pop54v  =  pop54 . Data ( "Expression" ) 


po2on . po2coml7 . value  = 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 


pop54v 
"TRIA  ( 

108, 

120, 

168 

"TRIA  ( 

Min, 

Mode, 

Max 

"NORM  ( 

Mean, 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UN IF  ( 

Min, 

Max  ) 

",  4 

0 

,  1 

2 


Dim  pop55  As  Module 
Dim  pop55i  As  Long 
Dim  pop55v  As  String 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55v  =  pop55 . Data ( "Expression" ) 


po2on . po2coml 9 . value  = 
po2on . po2coml 9 .Addltem 
po2on . po2coml 9 .Addltem 
po2on . po2coml 9 . Addltem 
po2on . po2coml 9 . Addltem 
po2on . po2coml 9 . Addltem 


pop55v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop56  As  Module 
Dim  pop56i  As  Long 
Dim  pop56v  As  String 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56v  =  pop56 . Data ( "Expression" ) 


po2on . po2com2 1 . value  = 
po2on . po2com21 .Addltem 
po2on . po2com21 .Addltem 
po2on . po2com2 1 .Addltem 
po2on . po2com2 1 .Addltem 
po2on . po2com21 .Addltem 


pop56v 

"TRIA  ( 

81, 

90,  126  )" 

"TRIA  ( 

Min, 

Mode,  Max 

"NORM  ( 

Mean 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

0 


2 


1 


Dim  pop57  As  Module 
Dim  pop57i  As  Long 
Dim  pop57v  As  String 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57v  =  pop57 . Data ( "Expression" ) 


po2on . po2com23 . value  = 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 


pop57v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop58  As  Module 
Dim  pop58i  As  Long 
Dim  pop58v  As  String 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58v  =  pop58 . Data ("Expression" ) 


po2on . po2com25 .value  = 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 


pop58v 

"TRIA  (  36,  40,  56  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UN IF  (  Min,  Max  )",  4 


1 


Dim  pop59  As  Module 
Dim  pop59i  As  Long 
Dim  pop59v  As  String 
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636 
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639 

640 
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643 

644 
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646 

647 
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pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59v  =  pop59 . Data ( "Expression" ) 


po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 


value  =  pop59v 
Addltem  "TRIA  ( 
Addltem  "TRIA  ( 
Addltem  "NORM  ( 
Addltem  "EXPO  ( 
Addltem  "UNIF  ( 


27,  30,  42  )",  0 
Min,  Mode,  Max  ) 
Mean,  StdDev  )", 
Mean  ) " ,  3 
Min,  Max  )",  4 


1 


Dim  pop60  As  Module 
Dim  pop60i  As  Long 
Dim  pop60v  As  String 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 
pop60v  =  pop60 . Data ( "Expression" ) 


po2on . po2com2 9 . value  = 
po2on . po2com2  9 .Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 


pop60v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop61  As  Module 
Dim  pop61i  As  Long 
Dim  pop61v  As  String 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 
Set  pop61  =  m. Modules (pop61i) 
pop61v  =  pop61 . Data ( "Expression" ) 


po2on . po2com31 .value  = 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 


pop61v 

"TRIA  ( 

81, 

90,  126  )" 

"TRIA  ( 

Min, 

Mode,  Max 

"NORM  ( 

Mean 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

0 

",  1 

2 


Dim  pop62  As  Module 
Dim  pop62i  As  Long 
Dim  pop62v  As  String 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 
Set  pop62  =  m. Modules (pop62i) 
pop62v  =  pop62 . Data ( "Expression" ) 


po2on . po2com33 . value  = 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 


pop62v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop63  As  Module 
Dim  pop63i  As  Long 
Dim  pop63v  As  String 

pop63i  =  m. Modules . Find (smFindTag,  "pop63") 
Set  pop63  =  m. Modules (pop63i) 
pop63v  =  pop63 . Data ("Expression" ) 


po2on . po2com35 . value  = 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 


pop63v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


2 


1 


Dim  pop34  As  Module 
Dim  pop34i  As  Long 
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693 
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695 

696 

697 
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707 
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709 
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711 

712 

713 

714 

715 

716 

717 

718 
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728 
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Dim  pop34v  As  String 

pop34i  =  m. Modules . Find (smFindTag,  "pop34") 
Set  pop34  =  m. Modules (pop34i) 
pop34v  =  pop34 . Data ( "Expression" ) 


po2on . po2com39 . value  = 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 


pop34v 
"TRIA  ( 

756, 

840, 

1176  ) 

",  o 

"TRIA  ( 

Min, 

Mode, 

Max  ) 

",  1 

"NORM  ( 

Mean, 

.  StdDev  ) " , 

.  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) 

",  4 

Dim  pop35  As  Module 
Dim  pop35i  As  Long 
Dim  pop35v  As  String 

pop35i  =  m. Modules . Find (smFindTag,  "pop35") 
Set  pop35  =  m. Modules (pop35i) 
pop35v  =  pop35 . Data ( "Expression" ) 


po2on . po2com4 1 . value  =  pop35v 

po2on . po2com4 1 . Addltem  "TRIA  (  324,  360,  504  )",  0 
po2on . po2com4 1 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po2on . po2com4 1 . Addltem  "NORM  (  Mean,  StdDev  )",  2 
po2on . po2com4 1 . Addltem  "EXPO  (  Mean  )",  3 
po2on . po2com4 1 . Addltem  "UNIF  (  Min,  Max  )",  4 


'Code  below  populates  small  combo  boxes  for  OP-01  thru  OP-25 
Dim  pop47u  As  Module 
Dim  pop47ui  As  Long 
Dim  pop47uv  As  String 

pop47ui  =  m. Modules . Find (smFindTag,  "pop47") 

Set  pop47u  =  m. Modules (pop47ui) 
pop47uv  =  pop47u . Data ( "Units" ) 

po2on . po2com2 .value  =  pop47uv 
po2on . po2com2 .Addltem  "Seconds",  0 
po2on . po2com2 .Addltem  "Minutes",  1 
po2on . po2com2 .Addltem  "Hours",  2 
po2on . po2com2 .Addltem  "Days",  3 

Dim  pop48u  As  Module 
Dim  pop48ui  As  Long 
Dim  pop48uv  As  String 

pop48ui  =  m. Modules . Find (smFindTag,  "pop48") 

Set  pop48u  =  m. Modules (pop48ui) 
pop48uv  =  pop48u . Data ( "Units" ) 

po2on . po2com4 . value  =  pop48uv 
po2on . po2com4 .Addltem  "Seconds",  0 
po2on . po2com4 .Addltem  "Minutes",  1 
po2on . po2com4 .Addltem  "Hours",  2 
po2on . po2com4 .Addltem  "Days",  3 

Dim  pop49u  As  Module 
Dim  pop49ui  As  Long 
Dim  pop49uv  As  String 

pop49ui  =  m. Modules . Find (smFindTag,  "pop49") 

Set  pop49u  =  m. Modules (pop49ui) 
pop49uv  =  pop49u . Data ("Units" ) 

po2on . po2com6 . value  =  pop49uv 
po2on . po2com6 .Addltem  "Seconds",  0 
po2on . po2com6 .Addltem  "Minutes",  1 
po2on . po2com6 .Addltem  "Hours",  2 
po2on . po2com6 .Addltem  "Days",  3 

Dim  pop50u  As  Module 
Dim  pop50ui  As  Long 
Dim  pop50uv  As  String 
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756 

757 
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763 
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765 
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767 

768 
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770 

771 
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pop50ui  =  m. Modules . Find (smFindTag, 
Set  pop50u  =  m. Modules (pop50ui) 
pop50uv  =  pop50u . Data ( "Units" ) 

po2on . po2com8 . value  =  pop50uv 
po2on . po2com8 . Addltem  "Seconds",  0 
po2on . po2com8 . Addltem  "Minutes",  1 
po2on . po2com8 .Addltem  "Hours",  2 
po2on . po2com8 .Addltem  "Days",  3 

Dim  pop51u  As  Module 

Dim  pop51ui  As  Long 

Dim  pop51uv  As  String 

pop51ui  =  m. Modules . Find (smFindTag, 

Set  pop51u  =  m. Modules (pop51ui) 

pop51uv  =  pop51u . Data ( "Units" ) 

po2on . po2coml0 .value  =  pop51uv 
po2on . po2coml0 .Addltem  "Seconds",  0 
po2on . po2coml0 .Addltem  "Minutes",  1 
po2on . po2coml0 . Addltem  "Hours",  2 
po2on . po2coml0 . Addltem  "Days",  3 

Dim  pop52u  As  Module 

Dim  pop52ui  As  Long 

Dim  pop52uv  As  String 

pop52ui  =  m. Modules . Find (smFindTag, 

Set  pop52u  =  m. Modules (pop52ui) 

pop52uv  =  pop52u . Data ( "Units" ) 


po2on . po2coml2 . value  =  pop52uv 
po2on . po2coml2 .Addltem  "Seconds",  0 
po2on . po2coml2 .Addltem  "Minutes",  1 
po2on . po2coml2 .Addltem  "Hours",  2 
po2on . po2coml2 .Addltem  "Days",  3 


Dim  pop64u  As  Module 

Dim  pop64ui  As  Long 

Dim  pop64uv  As  String 

pop64ui  =  m. Modules . Find (smFindTag, 

Set  pop64u  =  m. Modules (pop64ui) 

pop64uv  =  pop64u . Data ( "Units" ) 


po2on . po2coml4 .value  = 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 


pop64uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


po2on . po2com38 .value  = 
po2on . po2com38 . Addltem 
po2on . po2com38 .Addltem 
po2on . po2com38 .Addltem 
po2on . po2com38 .Addltem 


pop64uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop53u  As  Module 

Dim  pop53ui  As  Long 

Dim  pop53uv  As  String 

pop53ui  =  m. Modules . Find (smFindTag, 

Set  pop53u  =  m. Modules (pop53ui) 

pop53uv  =  pop53u . Data ( "Units" ) 

po2on . po2coml 6 . value  =  pop53uv 
po2on . po2coml 6 . Addltem  "Seconds",  0 
po2on . po2coml 6 . Addltem  "Minutes",  1 
po2on . po2coml 6 . Addltem  "Hours",  2 
po2on . po2coml 6 . Addltem  "Days",  3 


Dim  pop54u  As  Module 


"pop50" ) 


"pop51") 


"pop52") 


"pop64") 


"pop53" ) 
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Dim  pop54ui  As  Long 

Dim  pop54uv  As  String 

pop54ui  =  m. Modules . Find (smFindTag, 

Set  pop54u  =  m. Modules (pop54ui) 

pop54uv  =  pop54u . Data ( "Units" ) 

po2on . po2coml8 . value  =  pop54uv 
po2on . po2coml 8 . Addltem  "Seconds",  0 
po2on . po2coml 8 . Addltem  "Minutes",  1 
po2on . po2coml 8 .Addltem  "Hours",  2 
po2on . po2coml 8 .Addltem  "Days",  3 

Dim  pop55u  As  Module 

Dim  pop55ui  As  Long 

Dim  pop55uv  As  String 

pop55ui  =  m. Modules . Find (smFindTag, 

Set  pop55u  =  m. Modules (pop55ui) 

pop55uv  =  pop55u . Data ("Units" ) 

po2on . po2com20 . value  =  pop55uv 
po2on . po2com20 . Addltem  "Seconds",  0 
po2on . po2com20 . Addltem  "Minutes",  1 
po2on . po2com20 . Addltem  "Hours",  2 
po2on . po2com20 . Addltem  "Days",  3 

Dim  pop56u  As  Module 

Dim  pop56ui  As  Long 

Dim  pop56uv  As  String 

pop56ui  =  m. Modules . Find (smFindTag, 

Set  pop56u  =  m. Modules (pop56ui) 

pop56uv  =  pop56u . Data ( "Units" ) 

po2on . po2com22 .value  =  pop56uv 
po2on . po2com22 .Addltem  "Seconds",  0 
po2on . po2com22 .Addltem  "Minutes",  1 
po2on . po2com22 .Addltem  "Hours",  2 
po2on . po2com22 .Addltem  "Days",  3 

Dim  pop57u  As  Module 

Dim  pop57ui  As  Long 

Dim  pop57uv  As  String 

pop57ui  =  m. Modules . Find (smFindTag, 

Set  pop57u  =  m. Modules (pop57ui) 

pop57uv  =  pop57u . Data ( "Units" ) 

po2on . po2com24 . value  =  pop57uv 
po2 on . po2com2 4 . Addltem  "Seconds",  0 
po2on . po2com24 .Addltem  "Minutes",  1 
po2on . po2com24 .Addltem  "Hours",  2 
po2on . po2com24 .Addltem  "Days",  3 

Dim  pop58u  As  Module 

Dim  pop58ui  As  Long 

Dim  pop58uv  As  String 

pop58ui  =  m. Modules . Find (smFindTag, 

Set  pop58u  =  m. Modules (pop58ui) 

pop58uv  =  pop58u . Data ("Units" ) 

po2on . po2com2 6 . value  =  pop58uv 
po2on . po2com2 6 . Addltem  "Seconds",  0 
po2on . po2com2 6 . Addltem  "Minutes",  1 
po2on . po2com2 6 . Addltem  "Hours",  2 
po2on . po2com2 6 . Addltem  "Days",  3 

Dim  pop59u  As  Module 

Dim  pop59ui  As  Long 

Dim  pop59uv  As  String 

pop59ui  =  m. Modules . Find (smFindTag, 

Set  pop59u  =  m. Modules (pop59ui) 
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pop59uv  =  pop59u . Data ( "Units" ) 


po2on . po2com2 8 . value  = 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 


pop59uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop60u  As  Module 

Dim  pop60ui  As  Long 

Dim  pop60uv  As  String 

pop60ui  =  m. Modules . Find (smFindTag, 

Set  pop60u  =  m. Modules (pop60ui) 

pop60uv  =  pop60u . Data ( "Units" ) 


po2on . po2com30 . value  =  pop60uv 
po2on . po2com30 .Addltem  "Seconds",  0 
po2on . po2com30 .Addltem  "Minutes",  1 
po2on . po2com30 .Addltem  "Hours",  2 
po2on . po2com30 .Addltem  "Days",  3 

Dim  pop61u  As  Module 

Dim  pop61ui  As  Long 

Dim  pop61uv  As  String 

pop61ui  =  m. Modules . Find (smFindTag, 

Set  pop61u  =  m. Modules (pop61ui) 

pop61uv  =  pop61u . Data ( "Units" ) 

po2on . po2com32 . value  =  pop61uv 
po2on . po2com32 . Addltem  "Seconds",  0 
po2on . po2com32 .Addltem  "Minutes",  1 
po2on . po2com32 .Addltem  "Hours",  2 
po2on . po2com32 .Addltem  "Days",  3 

Dim  pop62u  As  Module 

Dim  pop62ui  As  Long 

Dim  pop62uv  As  String 

pop62ui  =  m. Modules . Find (smFindTag, 

Set  pop62u  =  m. Modules (pop62ui) 

pop62uv  =  pop62u . Data ("Units" ) 

po2on . po2com34 .value  =  pop62uv 
po2on . po2com34 . Addltem  "Seconds",  0 
po2on . po2com34 . Addltem  "Minutes",  1 
po2on . po2com34 . Addltem  "Hours",  2 
po2on . po2com34 . Addltem  "Days",  3 

Dim  pop63u  As  Module 

Dim  pop63ui  As  Long 

Dim  pop63uv  As  String 

pop63ui  =  m. Modules . Find (smFindTag, 

Set  pop63u  =  m. Modules (pop63ui) 

pop63uv  =  pop63u . Data ( "Units" ) 

po2on . po2com36 . value  =  pop63uv 
po2on . po2com36 .Addltem  "Seconds",  0 
po2on . po2com36 .Addltem  "Minutes",  1 
po2on . po2com36 .Addltem  "Hours",  2 
po2on . po2com36 . Addltem  "Days",  3 

Dim  pop34u  As  Module 

Dim  pop34ui  As  Long 

Dim  pop34uv  As  String 

pop34ui  =  m. Modules . Find (smFindTag, 

Set  pop34u  =  m. Modules (pop34ui) 

pop34uv  =  pop34u . Data ( "Units" ) 

po2on . po2com40 . value  =  pop34uv 
po2on . po2com40 . Addltem  "Seconds",  0 


"pop60" ) 


"pop61" ) 


"pop62") 


"pop63" ) 


"pop34") 
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909 

po2on .po2com40 . Addltem 

"Minutes", 

910 

po2on .po2com40 .Addltem 

"Hours",  2 

911 

po2on .po2com40 .Addltem 

"Days",  3 

912 

Dim  pop35u  As  Module 

913 

Dim  pop35ui  As  Long 

914 

Dim  pop35uv  As  String 

915 

pop35ui  =  m. Modules . Find (smFindTag 

916 

Set  pop35u  =  m. Modules (pop35ui) 

917 

pop35uv  =  pop35u . Data ( ' 

'Units" ) 

918 

po2on . po2com42 . value  = 

pop35uv 

919 

po2on . po2com42 .Addltem 

"Seconds",  i 

920 

po2on . po2com42 .Addltem 

"Minutes", 

921 

po2on . po2com42 .Addltem 

"Hours",  2 

922 

po2on . po2com42 .Addltem 

"Days",  3 

923 

End  Sub 

Project/polprelim 


"pop35" ) 


1  Private  Sub  CommandButton3_Click ( ) 

2  Me. Hide 

3  motors . Show 

4  End  Sub 


5  Private  Sub  CommandButton4_Click ( ) 
Hierarchy . done03 .Visible  =  True 


7  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

8  Dim  msgResult  As  Integer 

9  If  (poloptl . value  =  False  And  polopt2 .value  =  False)  Then 

10  msgResult  =  MsgBox("You  must  make  a  preintegration  choice.  Will  the  2nd 
stage  and  payload  be  preintegrated? " ,  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  poloptl . value  =  True 

13  Else 

14  polopt2 . value  =  True 

15  End  If 

16  End  If 

17  If  (polopt3 . value  =  False  And  polopt4 .value  =  False)  Then 

18  msgResult  =  MsgBox("You  must  make  an  integration  location  decision.  Click 

Yes  for  stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
stage  2  integration  off  the  launch  pad.",  vbYesNo) 

19  If  msgResult  =  vbYes  Then 

20  polopt3 .value  =  True 

21  Else 

22  polopt4 . value  =  True 

23  End  If 

24  End  If 

25  If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 .value  =  False) 


Then 

26 

Click  Yes 
will  take 

27 

28 

29 

30 

31 

32 


msgResult  =  MsgBox("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt5 .value  =  True 
Else 

polopt6 .value  =  True 
End  If 
End  If 


decision . 
integration 


33  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 


34  Dim  m  As  Model 

35  Set  m  =  ThisDocument .Model 
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36  Dim  popl  As  Module 

37  Dim  popli  As  Long 

38  popli  =  m. Modules . Find (smFindTag,  "popl") 

39  Set  popl  =  m. Modules (popli) 

40  popl . Data ( "Expression" )  =  polcoml.Text 

41  popl . Data ( "Units" )  =  polcom2.Text 

42  Dim  pop2  As  Module 

43  Dim  pop2i  As  Long 

44  pop2i  =  m. Modules . Find (smFindTag,  "pop2") 

45  Set  pop2  =  m. Modules (pop2i) 

46  pop2 . Data ( "Expression" )  =  polcom3.Text 

47  pop2 . Data ( "Units" )  =  polcom4.Text 

48  Dim  pop3  As  Module 

49  Dim  pop3i  As  Long 

50  pop3i  =  m. Modules . Find (smFindTag,  "pop3") 

51  Set  pop3  =  m. Modules (pop3i) 

52  pop3 . Data ( "Expression" )  =  polcom5.Text 

53  pop3 . Data ( "Units" )  =  polcom6.Text 

54  Dim  pop4  As  Module 

55  Dim  pop4i  As  Long 

56  pop4i  =  m. Modules . Find (smFindTag,  "pop4") 

57  Set  pop4  =  m. Modules (pop4i) 

58  pop4 . Data ( "Expression" )  =  polcom7.Text 

59  pop4 . Data ( "Units" )  =  polcom8.Text 

60  Dim  pop5  As  Module 

61  Dim  pop5i  As  Long 

62  pop5i  =  m. Modules . Find (smFindTag,  "pop5") 

63  Set  pop5  =  m. Modules (pop5i) 

64  pop5 . Data ("Expression" )  =  polcom9 . Text 

65  pop5 . Data ("Units" )  =  polcomlO . Text 

66  Dim  pop 6  As  Module 

67  Dim  pop6i  As  Long 

68  pop6i  =  m. Modules . Find (smFindTag,  "pop6") 

69  Set  pop6  =  m. Modules (pop6i) 

70  pop6 . Data ( "Expression" )  =  polcomll . Text 

71  pop6 . Data ( "Units" )  =  polcoml2 . Text 

72  Dim  pop7  As  Module 

73  Dim  pop7i  As  Long 

74  pop7i  =  m. Modules . Find (smFindTag,  "pop7") 

75  Set  pop7  =  m. Modules (pop7i) 

76  pop7 . Data ( "Expression" )  =  polcoml3 . Text 

77  pop7 . Data ( "Units" )  =  polcoml4 . Text 

78  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

79  Dim  povl  As  Module 

80  Dim  povli  As  Long 

81  povli  =  m. Modules . Find (smFindTag,  "povl") 

82  Set  povl  =  m. Modules (povli) 

83  If  poloptl . value  =  True  Then 

84  povl . Data (" Initial  Value")  =  "1" 

85  Else 

86  povl . Data (" Initial  Value")  =  "0" 

87  End  If 

88  Dim  pov2  As  Module 

89  Dim  pov2i  As  Long 

90  pov2i  =  m. Modules . Find (smFindTag,  "pov2") 

91  Set  pov2  =  m. Modules (pov2i) 

92  If  polopt3 . value  =  True  Then 

93  pov2 . Data (" Initial  Value")  =  "1" 

94  Else 
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95  pov2 . Data (" Initial  Value")  = 

96  End  If 

97  Dim  pov3  As  Module 

98  Dim  pov3i  As  Long 

99  pov3i  =  m. Modules . Find (smFindTag,  "pov3") 

100  Set  pov3  =  m. Modules (pov3i) 

101  If  polopt5 . value  =  True  Then 

102  pov3 . Data (" Initial  Value")  =  "1" 

103  Else 

104  pov3 . Data ( "Initial  Value")  =  "0" 

105  End  If 

106  'Code  below  checks  to  see  which  form  to  show  next  and  then  shows  the 
appropriate  form 

107  Me. Hide 

108  If  polopt3 .value  =  True  Then 

109  po2on.Show 

110  El  self  polopt4 . value  =  True  And  poloptl .value  =  True  Then 

111  po3of fpreint . Show 

112  Else 

113  po4of fnopreint . Show 

114  End  If 

115  End  Sub 

116  Private  Sub  CommandButton5_Click ( ) 

117  End  Sub 


118  Private  Sub  CommandButton6_Click ( ) 

119  Hierarchy . done03 .Visible  =  True 


120  'The  following  code  checks  to  see  if  the  user  forgot  to  click  any  option 
buttons  and  then  displays  message  boxes  forcing  the  user  to  make  a  choice  on  decisions 
they  skipped  in  the  form 

121  Dim  msgResult  As  Integer 

122  If  (poloptl . value  =  False  And  polopt2 . value  =  False)  Then 

123  msgResult  =  MsgBox ("You  must  make  a  preintegration  choice.  Will  the  2nd 


stage  and  payload  be  preintegrated?",  vbYesNo) 

124  If  msgResult  =  vbYes  Then 

125  poloptl .value  =  True 

126  Else 

127  polopt2 . value  =  True 

128  End  If 

129  End  If 

130  If  (polopt3 . value  =  False  And  polopt4 .value  =  False)  Then 

131  msgResult  =  MsgBox ("You  must  make  an  integration  location  decision.  Click 


Yes  for 
stage  2 

132 

133 

134 

135 

136 

137 

138 
Then 


stage  1  and  stage  2  integration  on  the  launch  pad.  Click  No  for  stage  1  and 
integration  off  the  launch  pad.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt3 .value  =  True 
Else 

polopt4 .value  =  True 
End  If 
End  If 

If  (polopt4 . value  =  True  And  polopt5 . value  =  False  And  polopt6 .value  =  False) 


139 

Click  Yes 
will  take 

140 

141 

142 

143 

144 

145 


msgResult  =  MsgBox ("You  must  make  an  off-pad  integration  location 
if  integration  will  take  place  in  the  maintenance  bay.  Click  No  if 
place  in  a  separate  integration  facility.",  vbYesNo) 

If  msgResult  =  vbYes  Then 
polopt5 .value  =  True 
Else 

polopt6 .value  =  True 
End  If 
End  If 


decision . 
integration 


146  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 
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user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 


147 

Dim  m  As  Model 

148 

Set  m  =  ThisDocument .Model 

149 

Dim  popl  As  Module 

150 

Dim  popli  As  Long 

151 

popli  =  m. Modules . Find (smFindTag, 

"popl") 

152 

Set  popl  =  m. Modules (popli) 

153 

popl . Data ( "Expression" )  =  polcoml. 

Text 

154 

popl . Data ( "Units" )  =  polcom2.Text 

155 

Dim  pop2  As  Module 

156 

Dim  pop2i  As  Long 

157 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " ) 

158 

Set  pop2  =  m. Modules (pop2i) 

159 

pop2 . Data ( "Expression" )  =  polcom3. 

Text 

160 

pop2 . Data ( "Units" )  =  polcom4.Text 

161 

Dim  pop3  As  Module 

162 

Dim  pop3i  As  Long 

163 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" ) 

164 

Set  pop3  =  m. Modules (pop3i) 

165 

pop3 . Data ( "Expression" )  =  polcom5. 

Text 

166 

pop3 . Data ( "Units" )  =  polcom6.Text 

167 

Dim  pop4  As  Module 

168 

Dim  pop4i  As  Long 

169 

pop4i  =  m. Modules . Find (smFindTag, 

"pop4 " ) 

170 

Set  pop4  =  m. Modules (pop4i) 

171 

pop4 . Data ( "Expression" )  =  polcom7. 

Text 

172 

pop4 . Data ( "Units" )  =  polcom8.Text 

173 

Dim  pop5  As  Module 

174 

Dim  pop5i  As  Long 

175 

pop5i  =  m. Modules . Find (smFindTag, 

"pop5" ) 

176 

Set  pop5  =  m. Modules (pop5i) 

177 

pop5 . Data ( "Expression" )  =  polcom9. 

Text 

178 

pop5 . Data ( "Units" )  =  polcomlO . Text 

179 

Dim  pop6  As  Module 

180 

Dim  pop6i  As  Long 

181 

pop6i  =  m. Modules . Find (smFindTag, 

"pop6" ) 

182 

Set  pop6  =  m. Modules (pop6i) 

183 

pop6 . Data ( "Expression" )  =  polcomll 

.  Text 

184 

pop6 . Data ( "Units" )  =  polcoml2 . Text 

185 

Dim  pop7  As  Module 

186 

Dim  pop7i  As  Long 

187 

pop7i  =  m. Modules . Find (smFindTag, 

"pop7 " ) 

188 

Set  pop7  =  m. Modules (pop7i) 

189 

pop7 . Data ( "Expression" )  =  polcoml3 

.  Text 

190 

pop7 . Data ( "Units" )  =  polcoml4 . Text 

191 

’ Code  below  takes  user's  option  button  decisions  and  translates  them  into 

litial 

values  for  the  variables  that  control  the  corresponding  decision  modules 

192 

Dim  povl  As  Module 

193 

Dim  povli  As  Long 

194 

povli  =  m. Modules . Find (smFindTag, 

"povl") 

195 

Set  povl  =  m. Modules (povli) 

196 

If  poloptl . value  =  True  Then 

197 

povl . Data (" Initial  Value")  =  "1" 

198 

Else 

199 

povl . Data (" Initial  Value")  =  "0" 

200 

End  If 

201 

Dim  pov2  As  Module 

202 

Dim  pov2i  As  Long 

203 

pov2i  =  m. Modules . Find (smFindTag, 

"pov2") 
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204  Set  pov2  =  m. Modules (pov2i) 

205  If  polopt3 . value  =  True  Then 

206  pov2 . Data (" Initial  Value")  =  "1 

207  Else 

208  pov2 . Data (" Initial  Value")  =  "0 

209  End  If 

210  Dim  pov3  As  Module 

211  Dim  pov3i  As  Long 

212  pov3i  =  m. Modules . Find (smFindTag, 

213  Set  pov3  =  m. Modules (pov3i) 

214  If  polopt5 .value  =  True  Then 

215  pov3 . Data ( "Initial  Value")  =  "1 

216  Else 

217  pov3 . Data (" Initial  Value")  =  "0 

218  End  If 


219  Me. Hide 

220  Hierarchy. Show 

221  End  Sub 

222  Private  Sub  Labelll_Click ( ) 

223  End  Sub 

224  Private  Sub  Labell2_Click ( ) 

225  End  Sub 

226  Private  Sub  OptionButtonl_Click ( ) 

227  End  Sub 

228  Private  Sub  OptionButton2_Click ( ) 

229  End  Sub 

230  Private  Sub  OptionButton4_Click ( ) 

231  End  Sub 

232  Private  Sub  OptionButton6_Click ( ) 

233  End  Sub 

234  Private  Sub  polcoml_Change ( ) 

235  End  Sub 

236  Private  Sub  poloptl_Click ( ) 

237  polfrml .Visible  =  True 

238  po2on .po2frml .Visible  =  True 

239  po2on .po2frm2 .Visible  =  False 

240  po6erect . po6frm3 .Visible  =  False 


241 


End  Sub 


242  Private  Sub  polopt2_Click ( ) 

243  polfrml .Visible  =  False 

244  po2on . po2frml .Visible  =  False 

245  po2on . po2frm2 .Visible  =  True 

246  po6erect . po6frm3 .Visible  =  True 

247  End  Sub 


248  Private  Sub  polopt3_Click ( ) 

249  polfrm2 .Visible  =  True 

250  polfrm3 .Visible  =  False 

251  polfrm4 .Visible  =  False 


"pov3 
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252 

End  Sub 

253 

Private  Sub  polopt4  Click () 

254 

polfrm2 .Visible  =  False 

255 

polfrm3 .Visible  =  True 

256 

polfrm4 .Visible  =  True 

257 

End  Sub 

258 

Private  Sub  polopt5  Click () 

259 

polfrm4 .Visible  =  False 

260 

End  Sub 

261 

Private  Sub  polopt6  Click () 

262 

polfrm4 .Visible  =  True 

263 

End  Sub 

264 

Private  Sub  TextBoxl  Change ( ) 

265 

End  Sub 

266 

Private  Sub  ToggleButtonl  Click () 

267 

End  Sub 

268 

Private  Sub  UserForm  Click () 

269 

End  Sub 

270 

Private  Sub  UserForm  Initialize () 

271 

Dim  m  As  Model 

272 

Set  m  =  ThisDocument .Model 

273 

) 

'Code  below  populates  large  combo 

boxes 

for 

PI- 

-02 

thru 

274 

Dim  popl  As  Module 

275 

Dim  popli  As  Long 

276 

Dim  poplv  As  String 

277 

popli  =  m. Modules . Find (smFindTag, 

"popl" 

) 

278 

Set  popl  =  m. Modules (popli) 

279 

poplv  =  popl . Data ( "Expression" ) 

280 

polprelim.polcoml .value  =  poplv 

281 

polprelim. polcoml . Addltem  "TRIA  ( 

27,  30 

,  42 

)' 

',  0 

282 

polprelim. polcoml . Addltem  "TRIA  ( 

Min,  Mode, 

Max  ) 

"  , 

i 

283 

polprelim. polcoml .Addltem  "NORM  ( 

Mean, 

StdDev 

)  ", 

2 

284 

polprelim. polcoml .Addltem  "EXPO  ( 

Mean  ) 

",  3 

285 

polprelim.polcoml .Addltem  "UNIF  ( 

Min,  Max  ) 

M  . 

4 

286 

Dim  pop2  As  Module 

287 

Dim  pop2i  As  Long 

288 

Dim  pop2v  As  String 

289 

pop2i  =  m. Modules . Find (smFindTag, 

"pop2 " 

) 

290 

Set  pop2  =  m. Modules (pop2i) 

291 

pop2v  =  pop2 . Data ( "Expression" ) 

292 

polprelim. polcom3 .value  =  pop2v 

293 

polprelim. polcom3 .Addltem  "TRIA  ( 

27,  30 

,  42 

) ' 

o 

294 

polprelim. polcom3 .Addltem  "TRIA  ( 

Min,  Mode, 

Max  ) 

" , 

i 

295 

polprelim. polcom3 .Addltem  "NORM  ( 

Mean, 

StdDev 

)  ", 

2 

296 

polprelim. polcom3 .Addltem  "EXPO  ( 

Mean  ) 

",  3 

297 

polprelim. polcom3 .Addltem  "UNIF  ( 

Min,  Max  ) 

" 

4 

298 

Dim  pop3  As  Module 

299 

Dim  pop3i  As  Long 

300 

Dim  pop3v  As  String 

301 

pop3i  =  m. Modules . Find (smFindTag, 

"pop3" 

) 
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Set  pop3  =  m. Modules (pop3i) 
pop3v  =  pop3 . Data ( "Expression" ) 


304 

305 

306 

307 

308 

309 


polprelim.polcom5 .value  =  pop3v 
polprelim.polcom5 .Addltem  "TRIA 
polprelim.polcom5 .Addltem  "TRIA 
polprelim.polcom5 .Addltem  "NORM 
polprelim.polcom5 .Addltem  "EXPO 
polprelim.polcom5 .Addltem  "UNIF 


(  18,  20,  28  )",  0 
(  Min,  Mode,  Max  )",  1 

(  Mean,  StdDev  )",  2 

(  Mean  ) " ,  3 

(  Min,  Max  )",  4 


310  Dim  pop4  As  Module 

311  Dim  pop4i  As  Long 

312  Dim  pop4v  As  String 

313  pop4i  =  m. Modules . Find (smFindTag,  "pop4") 

314  Set  pop4  =  m. Modules (pop4i) 

315  pop4v  =  pop4 . Data ( "Expression" ) 


316 

317 

318 

319 

320 

321 


polprelim.polcom7 .value  = 
polprelim.polcom7 .Addltem 
polprelim.polcom7 .Addltem 
polprelim.polcom7 .Addltem 
polprelim. polcom7 .Addltem 
polprelim. polcom7 .Addltem 


pop4v 

"TRIA 

CO 

CM 

O 

CM 

CO 

t — 1 

"TRIA 

(  Min,  Mode,  Max 

"NORM 

(  Mean,  StdDev  ) 

"EXPO 

(  Mean  ) " ,  3 

"UNIF 

(  Min,  Max  )",  4 

322  Dim  pop5  As  Module 

323  Dim  pop5i  As  Long 

324  Dim  pop5v  As  String 

325  pop5i  =  m. Modules . Find (smFindTag,  "pop5") 

326  Set  pop5  =  m. Modules (pop5i) 

327  pop5v  =  pop5 . Data ( "Expression" ) 


328 

329 

330 

331 

332 

333 


polprelim. polcom9 .value  = 
polprelim. polcom9 .Addltem 
polprelim. polcom9 .Addltem 
polprelim. polcom9 .Addltem 
polprelim. polcom9 .Addltem 
polprelim. polcom9 .Addltem 


pop5v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  )",  1 
"NORM  (  Mean,  StdDev  )",  2 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


334  Dim  pop6  As  Module 

335  Dim  pop6i  As  Long 

336  Dim  pop6v  As  String 

pop6i  =  m. Modules . Find (smFindTag,  "pop6") 
Set  pop6  =  m. Modules (pop6i) 
pop6v  =  pop6 . Data ( "Expression" ) 


340 

341 

342 

343 

344 

345 


polprelim. polcoml 1 . value  =  pop6v 
polprelim. polcomll .Addltem  "TRIA 
polprelim. polcomll .Addltem  "TRIA 
polprelim. polcomll .Addltem  "NORM 
polprelim. polcomll .Addltem  "EXPO 
polprelim. polcomll .Addltem  "UNIF 


(  27,  30,  42  )",  0 
(  Min,  Mode,  Max  )",  1 

(  Mean,  StdDev  )",  2 

(  Mean  ) " ,  3 

(  Min,  Max  )",  4 


346  Dim  pop7  As  Module 

347  Dim  pop7i  As  Long 

348  Dim  pop7v  As  String 

349  pop7i  =  m. Modules . Find (smFindTag,  "pop7") 

350  Set  pop7  =  m. Modules (pop7i) 

351  pop7v  =  pop7 . Data  ("Expression" ) 


352 

353 

354 

355 

356 

357 


polprelim. polcoml3 .value  = 
polprelim. polcoml 3 .Addltem 

pop7v 

"TRIA 

(  13.5, 

-  15, 

21  ) 

polprelim. polcoml 3 .Addltem 

"TRIA 

(  Min, 

Mode, 

.  Max 

polprelim. polcoml 3 . Addltem 

"NORM 

(  Mean, 

.  StdDev  ) 

polprelim. polcoml 3 . Addltem 

"EXPO 

(  Mean 

)",  3 

polprelim. polcoml 3 . Addltem 

"UNIF 

(  Min, 

Max  ) 

",  4 

358 

10 

359 


'Code  below  populates  small  combo  boxes  for  PI-02  thru  PI-06  and  PI-08  and  PI- 
Dim  poplu  As  Module 
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360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 


Dim  poplui  As  Long 
Dim  popluv  As  String 

poplui  =  m. Modules . Find (smFindTag,  "popl") 
Set  poplu  =  m. Modules (poplui) 
popluv  =  poplu . Data ( "Units" ) 

polprelim.polcom2 .value  =  popluv 
polprelim . polcom2 . Addltem  "Seconds",  0 
polprelim . polcom2 . Addltem  "Minutes",  1 
polprelim . polcom2 .Addltem  "Hours",  2 
polprelim . polcom2 .Addltem  "Days",  3 

Dim  pop2u  As  Module 
Dim  pop2ui  As  Long 
Dim  pop2uv  As  String 

pop2ui  =  m. Modules . Find (smFindTag,  "pop2") 
Set  pop2u  =  m. Modules (pop2ui) 
pop2uv  =  pop2u . Data ("Units" ) 

polprelim . polcom4 . value  =  pop2uv 
polprelim. polcom4 .Addltem  "Seconds",  0 
polprelim. polcom4 .Addltem  "Minutes",  1 
polprelim. polcom4 .Addltem  "Hours",  2 
polprelim. polcom4 .Addltem  "Days",  3 

Dim  pop3u  As  Module 
Dim  pop3ui  As  Long 
Dim  pop3uv  As  String 

pop3ui  =  m. Modules . Find (smFindTag,  "pop3") 
Set  pop3u  =  m. Modules (pop3ui) 
pop3uv  =  pop3u . Data ( "Units" ) 

polprelim . polcom6 . value  =  pop3uv 
polprelim. polcom6 .Addltem  "Seconds",  0 
polprelim . polcom6 .Addltem  "Minutes",  1 
polprelim. polcom6 .Addltem  "Hours",  2 
polprelim. polcom6 .Addltem  "Days",  3 

Dim  pop4u  As  Module 
Dim  pop4ui  As  Long 
Dim  pop4uv  As  String 

pop4ui  =  m. Modules . Find (smFindTag,  "pop4") 
Set  pop4u  =  m. Modules (pop4ui) 
pop4uv  =  pop4u . Data ( "Units" ) 

polprelim. polcom8 .value  =  pop4uv 
polprelim. polcom8 .Addltem  "Seconds",  0 
polprelim. polcom8 .Addltem  "Minutes",  1 
polprelim. polcom8 .Addltem  "Hours",  2 
polprelim . polcom8 .Addltem  "Days",  3 

Dim  pop5u  As  Module 
Dim  pop5ui  As  Long 
Dim  pop5uv  As  String 

pop5ui  =  m. Modules . Find (smFindTag,  "pop5") 
Set  pop5u  =  m. Modules (pop5ui) 
pop5uv  =  pop5u . Data ( "Units" ) 

polprelim . polcomlO . value  =  pop5uv 
polprelim . polcomlO . Addltem  "Seconds",  0 
polprelim . polcomlO . Addltem  "Minutes",  1 
polprelim . polcomlO . Addltem  "Hours",  2 
polprelim. polcomlO . Addltem  "Days",  3 

Dim  pop6u  As  Module 
Dim  pop6ui  As  Long 
Dim  pop6uv  As  String 

pop6ui  =  m. Modules . Find (smFindTag,  "pop6") 
Set  pop6u  =  m. Modules (pop6ui) 
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419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 


pop6uv  =  pop6u . Data ( "Units" ) 

polprelim.polcoml2 .value  =  pop6uv 
polprelim. polcoml2 . Addltem  "Seconds",  0 
polprelim. polcoml2 . Addltem  "Minutes",  1 
polprelim. polcoml2 . Addltem  "Hours",  2 
polprelim. polcoml2 .Addltem  "Days",  3 

Dim  pop7u  As  Module 
Dim  pop7ui  As  Long 
Dim  pop7uv  As  String 

pop7ui  =  m . Modules . Find ( smFindTag,  "pop7") 
Set  pop7u  =  m. Modules (pop7ui) 
pop7uv  =  pop7u . Data ( "Units" ) 


polprelim. polcoml4 .value  = 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 
polprelim. polcoml4 .Addltem 


pop7uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


End  Sub 
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Project/po2on 


1  Private  Sub  CommandButton3_Click ( ) 

2  End  Sub 

3  Private  Sub  CommandButton6_Click ( ) 

4  Me. Hide 

5  polprelim. Show 

6  End  Sub 


7  Private  Sub  CommandButton7_Click ( ) 

8  Hierarchy . done04 .Visible  =  True 

9  'Code  below  checks  if  any  option  button  sets  are  not  clicked,  and  if  so,  forces 
the  user  to  make  a  decision 

10  Dim  msgResult  As  Integer 

11  If  (po2optl .value  =  False  And  po2opt2 . value  =  False)  Then 

12  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 
hypergolic  fuels  required?",  vbYesNo) 

13  If  msgResult  =  vbYes  Then 

14  po2optl . value  =  True 

15  Else 

16  po2opt2 .value  =  True 

17  End  If 

18  End  If 

19  If  (po2optl .value  =  True  And  po2opt3 .value  =  False  And  po2opt4 .value  =  False) 

Then 

20  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

21  If  msgResult  =  vbYes  Then 

22  po2opt3 .value  =  True 

23  Else 

24  po2opt4 .value  =  True 

25  End  If 

26  End  If 

27  If  (po2opt5 . value  =  False  And  po2opt6 . value  =  False)  Then 

28  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

29  If  msgResult  =  vbYes  Then 

30  po2opt5 .value  =  True 

31  Else 

32  po2opt6. value  =  True 

33  End  If 

34  End  If 

35  If  (po2opt5 . value  =  True  And  po2opt7 . value  =  False  And  po2opt8 . value  =  False) 
Then 

36  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

37  If  msgResult  =  vbYes  Then 

38  po2opt7 .value  =  True 

39  Else 

40  po2opt8 . value  =  True 

41  End  If 

42  End  If 


43 

user  put 

44 

45 


'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 
into  the  combo  boxes  for  PI-02  thru  PI-10 
Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


46  Dim  pop47  As  Module 

47  Dim  pop47i  As  Long 

48  pop47i  =  m. Modules . Find (smFindTag,  "pop47") 

49  Set  pop47  =  m. Modules (pop47i) 

50  pop47 . Data ( "Expression" )  =  po2coml.Text 
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pop47 . Data ( "Units" )  =  po2com2 . Text 

Dim  pop48  As  Module 
Dim  pop48i  As  Long 

pop48i  =  m. Modules . Find (smFindTag,  "pop48") 
Set  pop48  =  m. Modules (pop48i) 
pop48 . Data ( "Expression" )  =  po2com3.Text 
pop48 . Data ("Units" )  =  po2com4.Text 

Dim  pop49  As  Module 
Dim  pop49i  As  Long 

pop49i  =  m. Modules . Find (smFindTag,  "pop49") 
Set  pop49  =  m. Modules (pop49i) 
pop4 9 . Data ( "Expression" )  =  po2com5.Text 
pop49 . Data ("Units" )  =  po2com6.Text 

Dim  pop50  As  Module 
Dim  pop50i  As  Long 

pop50i  =  m. Modules . Find (smFindTag,  "pop50") 
Set  pop50  =  m. Modules (pop50i) 
pop50 . Data ( "Expression" )  =  po2com7.Text 
pop50 . Data ( "Units" )  =  po2com8.Text 

Dim  pop51  As  Module 
Dim  pop51i  As  Long 

pop51i  =  m. Modules . Find (smFindTag,  "pop51") 
Set  pop51  =  m. Modules (pop51i) 
pop51 . Data ( "Expression" )  =  po2com9 . Text 
pop51 . Data ("Units" )  =  po2coml0 . Text 

Dim  pop52  As  Module 
Dim  pop52i  As  Long 

pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
Set  pop52  =  m. Modules (pop52i) 
pop52 . Data ( "Expression" )  =  po2coml 1 . Text 
pop52 . Data ( "Units" )  =  po2coml2 . Text 

Dim  pop64  As  Module 
Dim  pop64i  As  Long 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 

If  po2frml .Visible  =  True  Then 

pop64 . Data ( "Expression" )  =  po2coml3 . Text 
pop64 . Data ("Units" )  =  po2coml4 . Text 
Else 

pop64 . Data ( "Expression" )  =  po2com37 . Text 
pop64 . Data ("Units" )  =  po2com38 . Text 
End  If 

Dim  pop53  As  Module 
Dim  pop53i  As  Long 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53 . Data ( "Expression" )  =  po2coml5 . Text 
pop53 . Data ( "Units" )  =  po2coml 6 . Text 

Dim  pop54  As  Module 
Dim  pop54i  As  Long 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
Set  pop54  =  m. Modules (pop54i) 
pop54 . Data ( "Expression" )  =  po2coml7 . Text 
pop54 . Data ("Units" )  =  po2coml 8 . Text 

Dim  pop55  As  Module 
Dim  pop55i  As  Long 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55 . Data ( "Expression" )  =  po2coml 9 . Text 
pop55 . Data ( "Units" )  =  po2com20 . Text 
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Dim  pop56  As  Module 
Dim  pop56i  As  Long 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56 . Data ( "Expression" )  =  po2com2 1 . Text 
pop56 . Data ( "Units" )  =  po2com22 . Text 

Dim  pop57  As  Module 
Dim  pop57i  As  Long 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57 . Data ( "Expression" )  =  po2com23 . Text 
pop57 . Data ( "Units" )  =  po2com24 . Text 

Dim  pop58  As  Module 
Dim  pop58i  As  Long 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58 . Data ( "Expression" )  =  po2com25 . Text 
pop58 . Data ( "Units" )  =  po2com2 6 . Text 

Dim  pop59  As  Module 
Dim  pop59i  As  Long 

pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59 . Data ( "Expression" )  =  po2com27 . Text 
pop59 . Data ("Units" )  =  po2com2 8 . Text 

Dim  pop60  As  Module 
Dim  pop60i  As  Long 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 
pop60 . Data ( "Expression" )  =  po2com29 . Text 
pop60 . Data ("Units" )  =  po2com30 . Text 

Dim  pop61  As  Module 
Dim  pop61i  As  Long 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 
Set  pop61  =  m. Modules (pop61i) 
pop61 . Data ( "Expression" )  =  po2com31 . Text 
pop61 . Data ("Units" )  =  po2com32 . Text 

Dim  pop62  As  Module 
Dim  pop62i  As  Long 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 
Set  pop62  =  m. Modules (pop62i) 
pop62 . Data ( "Expression" )  =  po2com33 . Text 
pop62 . Data ("Units" )  =  po2com34 . Text 

Dim  pop63  As  Module 
Dim  pop63i  As  Long 

pop63i  =  m. Modules . Find (smFindTag,  "pop63") 
Set  pop63  =  m. Modules (pop63i) 
pop63 . Data ( "Expression" )  =  po2com35 . Text 
pop63 . Data ( "Units" )  =  po2com36 . Text 

Dim  pop34  As  Module 
Dim  pop34i  As  Long 

pop34i  =  m. Modules . Find (smFindTag,  "pop34") 
Set  pop34  =  m. Modules (pop34i) 
pop34 . Data ( "Expression" )  =  po2com39 . Text 
pop34 . Data ("Units" )  =  po2com40 . Text 

Dim  pop71  As  Module 
Dim  pop71i  As  Long 

pop71i  =  m. Modules . Find (smFindTag,  "pop71") 

Set  pop71  =  m. Modules (pop71i) 

pop71 . Data ( "Expression" )  =  po2com39 . Text 
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pop71 . Data  ( 

"Units" ) 

=  po2com40 . Text 

171 

Dim  pop35  As  Module 

172 

Dim  pop35i 

As  Long 

173 

pop35i  =  m. 

Modules . 

Find (smFindTag,  "pop35") 

174 

Set  pop35  = 

:  m. Modules (pop35i) 

175 

pop35 . Data  ( 

"Expression")  =  po2com41 . Text 

176 

pop35 . Data ( 

"Units" ) 

=  po2com42 . Text 

177 

Dim  pop77  As  Module 

178 

Dim  pop77i 

As  Long 

179 

pop77i  =  m. 

Modules . 

Find (smFindTag,  "pop77") 

180 

Set  pop77  = 

:  m. Modules (pop77i) 

181 

pop77 . Data ( 

"Expression")  =  po2com41 . Text 

182 

pop77 . Data ( 

"Units" ) 

=  po2com42 . Text 

183 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

initial  values  for  the  variables  that  control  the  corresponding  decision  modules 


184  Dim  pov6  As  Module 

185  Dim  pov6i  As  Long 

186  pov6i  =  m. Modules . Find (smFindTag, 

187  Set  pov6  =  m. Modules (pov6i) 

188  If  po2opt2 . value  =  True  Then 

189  pov6 . Data (" Initial  Value")  =  "0" 

190  Elself  po2opt3 .value  =  True  Then 

191  pov6 . Data (" Initial  Value")  =  "1" 

192  Else 

193  pov6 . Data ( "Initial  Value")  =  "2" 

194  End  If 


'pov6" ) 


195  Dim  pov7  As  Module 

196  Dim  pov7i  As  Long 

197  pov7i  =  m. Modules . Find (smFindTag,  "pov7") 

198  Set  pov7  =  m. Modules (pov7i) 

199  If  po2opt6 . value  =  True  Then 

200  pov7 . Data (" Initial  Value")  =  "0" 

201  Elself  po2opt7 . value  =  True  Then 

202  pov7 . Data (" Initial  Value")  =  "1" 

203  Else 

204  pov7 . Data (" Initial  Value")  =  "2" 

205  End  If 

206  'code  below  hides  the  current  form  and  shows  the  next  form 

207  Me. Hide 

208  po7umbilical . Show 

209  End  Sub 


210  Private  Sub  CommandButton9_Click ( ) 

211  Hierarchy . done04 .Visible  =  True 

212  'Code  below  checks  if  any  option  button  sets  are  not  clicked ,  and  if  so,  forces 
the  user  to  make  a  decision 

213  Dim  msgResult  As  Integer 

214  If  (po2optl . value  =  False  And  po2opt2 . value  =  False)  Then 

215  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 
hypergolic  fuels  required?",  vbYesNo) 

216  If  msgResult  =  vbYes  Then 

217  po2optl .value  =  True 

218  Else 

219  po2opt2 .value  =  True 

220  End  If 

221  End  If 

222  If  (po2optl . value  =  True  And  po2opt3 . value  =  False  And  po2opt4 . value  =  False) 

Then 

223  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

224  If  msgResult  =  vbYes  Then 
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225  po2opt3 .value  =  True 

226  Else 

227  po2opt4 . value  =  True 

228  End  If 

229  End  If 

230  If  (po2opt5 . value  =  False  And  po2opt6 . value  =  False)  Then 

231  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

232  If  msgResult  =  vbYes  Then 

233  po2opt5 .value  =  True 

234  Else 

235  po2opt6 .value  =  True 

236  End  If 

237  End  If 

238  If  (po2opt5 . value  =  True  And  po2opt7 . value  =  False  And  po2opt8 . value  =  False) 
Then 

239  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

240  If  msgResult  =  vbYes  Then 

241  po2opt7 . value  =  True 

242  Else 

243  po2opt8 . value  =  True 

244  End  If 

245  End  If 

246  'Code  below  populates  the  appropriate  arena  modules  with  the  distributions  the 

user  put  into  the  combo  boxes  for  PI-02  thru  PI-10 

247  Dim  m  As  Model 

248  Set  m  =  ThisDocument .Model 

249  Dim  pop47  As  Module 

250  Dim  pop47i  As  Long 

251  pop47i  =  m. Modules . Find (smFindTag,  "pop47") 

252  Set  pop47  =  m. Modules (pop47i) 

253  pop47 . Data ( "Expression" )  =  po2coml.Text 

254  pop47 . Data ( "Units" )  =  po2com2.Text 

255  Dim  pop48  As  Module 

256  Dim  pop48i  As  Long 

257  pop48i  =  m. Modules . Find (smFindTag,  "pop48") 

258  Set  pop48  =  m. Modules (pop48i) 

259  pop48 . Data ( "Expression" )  =  po2com3.Text 

260  pop48 . Data ( "Units" )  =  po2com4.Text 

261  Dim  pop49  As  Module 

262  Dim  pop49i  As  Long 

263  pop49i  =  m. Modules . Find (smFindTag,  "pop49") 

264  Set  pop49  =  m. Modules (pop49i) 

265  pop49 . Data ("Expression")  =  po2com5.Text 

266  pop49. Data ("Units")  =  po2com6.Text 

267  Dim  pop50  As  Module 

268  Dim  pop50i  As  Long 

269  pop50i  =  m. Modules . Find (smFindTag,  "pop50") 

270  Set  pop50  =  m. Modules (pop50i) 

271  pop50 . Data ( "Expression" )  =  po2com7.Text 

272  pop50 . Data ( "Units" )  =  po2com8.Text 

273  Dim  pop51  As  Module 

274  Dim  pop51i  As  Long 

275  pop51i  =  m. Modules . Find (smFindTag,  "pop51") 

276  Set  pop51  =  m. Modules (pop51i) 

277  pop51 . Data ( "Expression" )  =  po2com9.Text 

278  pop51 . Data ( "Units" )  =  po2coml0 . Text 

279  Dim  pop52  As  Module 

280  Dim  pop52i  As  Long 

281  pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
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Set  pop52  =  m. Modules (pop52i) 

pop52 . Data ( "Expression" )  =  po2coml 1 . Text 

pop52 . Data ( "Units" )  =  po2coml2 . Text 

Dim  pop64  As  Module 
Dim  pop64i  As  Long 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 

If  po2frml .Visible  =  True  Then 

pop64 . Data ( "Expression" )  =  po2coml3 . Text 
pop64 . Data ("Units" )  =  po2coml4 . Text 
Else 

pop64 . Data ( "Expression" )  =  po2com37 . Text 
pop64 .Data ("Units")  =  po2com38 . Text 
End  If 

Dim  pop53  As  Module 
Dim  pop53i  As  Long 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53 . Data ( "Expression" )  =  po2coml5 . Text 
pop53 . Data ("Units" )  =  po2coml 6 . Text 

Dim  pop54  As  Module 
Dim  pop54i  As  Long 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
Set  pop54  =  m. Modules (pop54i) 
pop54 . Data ( "Expression" )  =  po2coml7 . Text 
pop54 . Data ("Units" )  =  po2coml8 . Text 

Dim  pop55  As  Module 
Dim  pop55i  As  Long 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55 . Data ( "Expression" )  =  po2coml 9 . Text 
pop55 . Data ( "Units" )  =  po2com20 . Text 

Dim  pop56  As  Module 
Dim  pop56i  As  Long 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56 . Data ( "Expression" )  =  po2com21 . Text 
pop56 . Data ( "Units" )  =  po2com22 . Text 

Dim  pop57  As  Module 
Dim  pop57i  As  Long 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57 . Data ( "Expression" )  =  po2com23 . Text 
pop57 . Data ( "Units" )  =  po2com24 . Text 

Dim  pop58  As  Module 
Dim  pop58i  As  Long 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58 . Data ( "Expression" )  =  po2com25 . Text 
pop58 . Data ("Units" )  =  po2com2 6 . Text 

Dim  pop59  As  Module 
Dim  pop59i  As  Long 

pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59 . Data ( "Expression" )  =  po2com27 . Text 
pop59 . Data ("Units" )  =  po2com28 . Text 

Dim  pop60  As  Module 
Dim  pop60i  As  Long 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 
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pop60 . Data ( "Expression" )  =  po2com29 . Text 
pop60 . Data ( "Units" )  =  po2com30 . Text 

Dim  pop61  As  Module 
Dim  pop61i  As  Long 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 

Set  pop61  =  m. Modules (pop61i) 

pop61 . Data ( "Expression" )  =  po2com31 . Text 

pop61 . Data ("Units" )  =  po2com32 . Text 

Dim  pop62  As  Module 
Dim  pop62i  As  Long 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 

Set  pop62  =  m. Modules (pop62i) 

pop62 . Data ( "Expression" )  =  po2com33 . Text 

pop62 . Data ( "Units" )  =  po2com34 . Text 

Dim  pop63  As  Module 
Dim  pop63i  As  Long 

pop63i  =  m . Modules . Find ( smFindTag,  "pop63") 

Set  pop63  =  m. Modules (pop63i) 

pop63 . Data ( "Expression" )  =  po2com35 . Text 

pop63 . Data ( "Units" )  =  po2com36 . Text 

Dim  pop34  As  Module 
Dim  pop34i  As  Long 

pop34i  =  m . Modules . Find ( smFindTag,  "pop34") 

Set  pop34  =  m. Modules (pop34i) 

pop34 . Data ( "Expression" )  =  po2com39 . Text 

pop34 . Data ( "Units" )  =  po2com40 . Text 

Dim  pop71  As  Module 
Dim  pop71i  As  Long 

pop71i  =  m . Modules . Find ( smFindTag,  "pop71") 

Set  pop71  =  m. Modules (pop71i) 

pop71 . Data ( "Expression" )  =  po2com39 . Text 

pop71 . Data ( "Units" )  =  po2com40 . Text 

Dim  pop35  As  Module 
Dim  pop35i  As  Long 

pop35i  =  m. Modules . Find (smFindTag,  "pop35") 

Set  pop35  =  m. Modules (pop35i) 

pop35 . Data ( "Expression" )  =  po2com41 . Text 

pop35 . Data ( "Units" )  =  po2com42 . Text 

Dim  pop77  As  Module 
Dim  pop77i  As  Long 

pop77i  =  m. Modules . Find (smFindTag,  "pop77") 

Set  pop77  =  m. Modules (pop77i) 

pop77 . Data ( "Expression" )  =  po2com41 . Text 

pop77 . Data ( "Units" )  =  po2com42 . Text 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 
Dim  pov6  As  Module 
Dim  pov6i  As  Long 

pov6i  =  m. Modules . Find (smFindTag,  "pov6") 

Set  pov6  =  m. Modules (pov6i) 

If  po2opt2 . value  =  True  Then 

pov6 . Data ( "Initial  Value")  =  "0" 

Elself  po2opt3 .value  =  True  Then 
pov6 . Data (" Initial  Value")  =  "1" 

Else 

pov6 . Data ( "Initial  Value")  =  "2" 

End  If 

Dim  pov7  As  Module 
Dim  pov7i  As  Long 

pov7i  =  m. Modules . Find (smFindTag,  "pov7") 
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Set  pov7  =  m. Modules (pov7i) 

If  po2opt6 . value  =  True  Then 

pov7 . Data (" Initial  Value")  =  "0" 

Elself  po2opt7 . value  =  True  Then 
pov7 . Data (" Initial  Value")  =  "1" 

Else 

pov7 . Data (" Initial  Value")  =  "2" 

End  If 

'code  below  hides  the  current  form  and  shows  the  main  form 
Me . Hide 
Hierarchy . Show 

End  Sub 

Private  Sub  Labell l_Click ( ) 

End  Sub 

Private  Sub  Labell2_Click ( ) 

End  Sub 

Private  Sub  Label23_Click ( ) 

End  Sub 

Private  Sub  Label6_Click ( ) 

End  Sub 

Private  Sub  OptionButtonl_Click ( ) 

End  Sub 

Private  Sub  OptionButton2_Click ( ) 

End  Sub 

Private  Sub  OptionButton4_Click ( ) 

End  Sub 

Private  Sub  OptionButton6_Click ( ) 

End  Sub 

Private  Sub  po2optl_Click ( ) 
po2frm3 .Visible  =  True 

End  Sub 

Private  Sub  po2opt2_Click ( ) 
po2frm3 .Visible  =  False 

End  Sub 

Private  Sub  po2opt5_Click ( ) 
po2frm4 .Visible  =  True 

End  Sub 

Private  Sub  po2opt6_Click ( ) 
po2frm4 .Visible  =  False 

End  Sub 

Private  Sub  TextBox23_Change ( ) 
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459 
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461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 
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473 

474 
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476 
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480 
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485 
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487 
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End  Sub 


Private  Sub  ToggleButtonl_Click ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 

End  Sub 


Private  Sub  UserForm_Initialize ( ) 

Dim  m  As  Model 

Set  m  =  ThisDocument .Model 

'Code  below  populates  large  combo  boxes  for  OP-01  thru  OP-25 
Dim  pop47  As  Module 
Dim  pop47i  As  Long 
Dim  pop47v  As  String 

pop47i  =  m . Modules . Find ( smFindTag,  "pop47") 

Set  pop47  =  m. Modules (pop47i) 
pop47v  =  pop47 . Data ( "Expression" ) 


po2on . po2coml . value  = 
po2on . po2coml . Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 
po2on . po2coml .Addltem 


pop47v 

"TRIA  (  54,  60,  84  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNI F  (  Min,  Max  )",  4 


2 


1 


Dim  pop48  As  Module 
Dim  pop48i  As  Long 
Dim  pop48v  As  String 

pop48i  =  m . Modules . Find ( smFindTag,  "pop48") 
Set  pop48  =  m. Modules (pop48i) 
pop48v  =  pop48 . Data ( "Expression" ) 


po2on . po2com3 .value  =  pop48v 


po2on . po2com3 .Addltem 

"TRIA 

(  108 , 

120, 

168  )  ' 

',  0 

po2on . po2com3 .Addltem 

"TRIA 

(  Min, 

Mode, 

.  Max  ) 

",  1 

po2on . po2com3 .Addltem 

"NORM 

(  Mean, 

,  StdDev  ) " , 

2 

po2on . po2com3 .Addltem 

"EXPO 

(  Mean 

>",  3 

po2on . po2com3 .Addltem 

"UNIF 

(  Min, 

Max  ) 

",  4 

Dim  pop49  As  Module 
Dim  pop49i  As  Long 
Dim  pop49v  As  String 

pop49i  =  m. Modules . Find ( smFindTag,  "pop49") 
Set  pop49  =  m. Modules (pop49i) 
pop49v  =  pop49 . Data ( "Expression" ) 


po2on .po2com5 .value  = 
po2on . po2com5 .Addltem 

pop49v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2com5 .Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2com5 .Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2com5 .Addltem 

"EXPO  ( 

Mean 

>",  3 

po2on . po2com5 .Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop50  As  Module 
Dim  pop50i  As  Long 
Dim  pop50v  As  String 

pop50i  =  m . Modules . Find (smFindTag,  "pop50") 
Set  pop50  =  m. Modules (pop50i) 
pop50v  =  pop50 . Data ( "Expression" ) 


po2on . po2com7 . value  =  pop50v 

po2on . po2com7 .Addltem  "TRIA  (  81,  90,  126  )",  0 
po2on . po2com7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po2on . po2com7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po2on . po2com7 .Addltem  "EXPO  (  Mean  )",  3 
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498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 


po2on . po2com7 . Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop51  As  Module 
Dim  pop51i  As  Long 
Dim  pop51v  As  String 

pop51i  =  m. Modules . Find (smFindTag,  "pop51") 
Set  pop51  =  m. Modules (pop51i) 
pop51v  =  pop51 . Data ( "Expression" ) 


po2on . po2com9 . value  = 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 
po2on . po2com9 .Addltem 


pop51v 

"TRIA  (  36,  40,  56  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


2 


1 


Dim  pop52  As  Module 
Dim  pop52i  As  Long 
Dim  pop52v  As  String 

pop52i  =  m. Modules . Find (smFindTag,  "pop52") 
Set  pop52  =  m. Modules (pop52i) 
pop52v  =  pop52 . Data ( "Expression" ) 


po2on . po2coml 1 . value  = 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 
po2on . po2coml 1 . Addltem 


pop52v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop64  As  Module 
Dim  pop64i  As  Long 
Dim  pop64v  As  String 

pop64i  =  m. Modules . Find (smFindTag,  "pop64") 
Set  pop64  =  m. Modules (pop64i) 
pop64v  =  pop64 . Data ( "Expression" ) 


po2on . po2coml3 . value  = 
po2on . po2coml3 .Addltem 

pop64v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2coml3 . Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2coml3 . Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2coml3 . Addltem 

"EXPO  ( 

Mean 

)",  3 

po2on . po2com!3 . Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


po2on . po2com37 . value  = 
po2on . po2com37 . Addltem 

pop64v 
"TRIA  ( 

27, 

30,  42  )", 

po2on . po2com37 . Addltem 

"TRIA  ( 

Min, 

Mode,  Max 

po2on . po2com37 . Addltem 

"NORM  ( 

Mean 

,  StdDev  ) 

po2on . po2com37 . Addltem 

"EXPO  ( 

Mean 

)",  3 

po2on . po2com37 . Addltem 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop53  As  Module 
Dim  pop53i  As  Long 
Dim  pop53v  As  String 

pop53i  =  m. Modules . Find (smFindTag,  "pop53") 
Set  pop53  =  m. Modules (pop53i) 
pop53v  =  pop53 . Data ( "Expression" ) 


po2on . po2coml5 . value  = 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2coml5 . Addltem 
po2on . po2com!5 . Addltem 


pop53v 

"TRIA  ( 

54, 

60,  84  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop54  As  Module 
Dim  pop54i  As  Long 
Dim  pop54v  As  String 

pop54i  =  m. Modules . Find (smFindTag,  "pop54") 
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566 

567 
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569 

570 

571 
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573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 
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614 

615 


Set  pop54  =  m. Modules (pop54i) 
pop54v  =  pop54 . Data ( "Expression" ) 


po2on . po2coml7 . value  = 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 
po2on . po2coml7 . Addltem 


pop54v 
"TRIA  ( 

108, 

120, 

168 

"TRIA  ( 

Min, 

Mode, 

Max 

"NORM  ( 

Mean, 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UN IF  ( 

Min, 

Max  ) 

",  4 

0 

,  1 

2 


Dim  pop55  As  Module 
Dim  pop55i  As  Long 
Dim  pop55v  As  String 

pop55i  =  m. Modules . Find (smFindTag,  "pop55") 
Set  pop55  =  m. Modules (pop55i) 
pop55v  =  pop55 . Data ( "Expression" ) 


po2on . po2coml 9 . value  = 
po2on . po2coml 9 .Addltem 
po2on . po2coml 9 .Addltem 
po2on . po2coml 9 . Addltem 
po2on . po2coml 9 . Addltem 
po2on . po2coml 9 . Addltem 


pop55v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop56  As  Module 
Dim  pop56i  As  Long 
Dim  pop56v  As  String 

pop56i  =  m. Modules . Find (smFindTag,  "pop56") 
Set  pop56  =  m. Modules (pop56i) 
pop56v  =  pop56 . Data ( "Expression" ) 


po2on . po2com2 1 . value  = 
po2on . po2com21 .Addltem 
po2on . po2com21 .Addltem 
po2on . po2com2 1 .Addltem 
po2on . po2com2 1 .Addltem 
po2on . po2com21 .Addltem 


pop56v 

"TRIA  ( 

81, 

90,  126  )" 

"TRIA  ( 

Min, 

Mode,  Max 

"NORM  ( 

Mean 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

0 


2 


1 


Dim  pop57  As  Module 
Dim  pop57i  As  Long 
Dim  pop57v  As  String 

pop57i  =  m. Modules . Find (smFindTag,  "pop57") 
Set  pop57  =  m. Modules (pop57i) 
pop57v  =  pop57 . Data ( "Expression" ) 


po2on . po2com23 . value  = 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 
po2on . po2com23 . Addltem 


pop57v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

2 


1 


Dim  pop58  As  Module 
Dim  pop58i  As  Long 
Dim  pop58v  As  String 

pop58i  =  m. Modules . Find (smFindTag,  "pop58") 
Set  pop58  =  m. Modules (pop58i) 
pop58v  =  pop58 . Data ("Expression" ) 


po2on . po2com25 .value  = 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 
po2on . po2com25 . Addltem 


pop58v 

"TRIA  (  36,  40,  56  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UN IF  (  Min,  Max  )",  4 


1 


Dim  pop59  As  Module 
Dim  pop59i  As  Long 
Dim  pop59v  As  String 


175 
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623 
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639 

640 

641 
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643 
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645 
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647 

648 

649 

650 

651 
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656 

657 
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664 
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pop59i  =  m. Modules . Find (smFindTag,  "pop59") 
Set  pop59  =  m. Modules (pop59i) 
pop59v  =  pop59 . Data ( "Expression" ) 


po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 
po2on . po2com27 


value  =  pop59v 
Addltem  "TRIA  ( 
Addltem  "TRIA  ( 
Addltem  "NORM  ( 
Addltem  "EXPO  ( 
Addltem  "UNIF  ( 


27,  30,  42  )",  0 
Min,  Mode,  Max  ) 
Mean,  StdDev  )", 
Mean  ) " ,  3 
Min,  Max  )",  4 


1 


Dim  pop60  As  Module 
Dim  pop60i  As  Long 
Dim  pop60v  As  String 

pop60i  =  m. Modules . Find (smFindTag,  "pop60") 
Set  pop60  =  m. Modules (pop60i) 
pop60v  =  pop60 . Data ( "Expression" ) 


po2on . po2com2 9 . value  = 
po2on . po2com2  9 .Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 
po2on . po2com2  9 . Addltem 


pop60v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop61  As  Module 
Dim  pop61i  As  Long 
Dim  pop61v  As  String 

pop61i  =  m. Modules . Find (smFindTag,  "pop61") 
Set  pop61  =  m. Modules (pop61i) 
pop61v  =  pop61 . Data ( "Expression" ) 


po2on . po2com31 .value  = 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 
po2on . po2com31 .Addltem 


pop61v 

"TRIA  ( 

81, 

90,  126  )" 

"TRIA  ( 

Min, 

Mode,  Max 

"NORM  ( 

Mean 

,  StdDev  ) 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

0 

",  1 

2 


Dim  pop62  As  Module 
Dim  pop62i  As  Long 
Dim  pop62v  As  String 

pop62i  =  m. Modules . Find (smFindTag,  "pop62") 
Set  pop62  =  m. Modules (pop62i) 
pop62v  =  pop62 . Data ( "Expression" ) 


po2on . po2com33 . value  = 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 
po2on . po2com33 .Addltem 


pop62v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  ) 

"NORM  ( 

Mean 

,  StdDev  ) " , 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop63  As  Module 
Dim  pop63i  As  Long 
Dim  pop63v  As  String 

pop63i  =  m. Modules . Find (smFindTag,  "pop63") 
Set  pop63  =  m. Modules (pop63i) 
pop63v  =  pop63 . Data ("Expression" ) 


po2on . po2com35 . value  = 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 
po2on . po2com35 . Addltem 


pop63v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  ) 
"NORM  (  Mean,  StdDev  )", 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


2 


1 


Dim  pop34  As  Module 
Dim  pop34i  As  Long 
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675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 
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732 

733 


Dim  pop34v  As  String 

pop34i  =  m. Modules . Find (smFindTag,  "pop34") 
Set  pop34  =  m. Modules (pop34i) 
pop34v  =  pop34 . Data ( "Expression" ) 


po2on . po2com39 . value  = 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 
po2on . po2com39 . Addltem 


pop34v 
"TRIA  ( 

756, 

840, 

1176  ) 

",  o 

"TRIA  ( 

Min, 

Mode, 

Max  ) 

",  1 

"NORM  ( 

Mean, 

.  StdDev  ) " , 

.  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) 

",  4 

Dim  pop35  As  Module 
Dim  pop35i  As  Long 
Dim  pop35v  As  String 

pop35i  =  m. Modules . Find (smFindTag,  "pop35") 
Set  pop35  =  m. Modules (pop35i) 
pop35v  =  pop35 . Data ( "Expression" ) 


po2on . po2com4 1 . value  =  pop35v 

po2on . po2com4 1 . Addltem  "TRIA  (  324,  360,  504  )",  0 
po2on . po2com4 1 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po2on . po2com4 1 . Addltem  "NORM  (  Mean,  StdDev  )",  2 
po2on . po2com4 1 . Addltem  "EXPO  (  Mean  )",  3 
po2on . po2com4 1 . Addltem  "UNIF  (  Min,  Max  )",  4 


'Code  below  populates  small  combo  boxes  for  OP-01  thru  OP-25 
Dim  pop47u  As  Module 
Dim  pop47ui  As  Long 
Dim  pop47uv  As  String 

pop47ui  =  m. Modules . Find (smFindTag,  "pop47") 

Set  pop47u  =  m. Modules (pop47ui) 
pop47uv  =  pop47u . Data ( "Units" ) 

po2on . po2com2 .value  =  pop47uv 
po2on . po2com2 .Addltem  "Seconds",  0 
po2on . po2com2 .Addltem  "Minutes",  1 
po2on . po2com2 .Addltem  "Hours",  2 
po2on . po2com2 .Addltem  "Days",  3 

Dim  pop48u  As  Module 
Dim  pop48ui  As  Long 
Dim  pop48uv  As  String 

pop48ui  =  m. Modules . Find (smFindTag,  "pop48") 

Set  pop48u  =  m. Modules (pop48ui) 
pop48uv  =  pop48u . Data ( "Units" ) 

po2on . po2com4 . value  =  pop48uv 
po2on . po2com4 .Addltem  "Seconds",  0 
po2on . po2com4 .Addltem  "Minutes",  1 
po2on . po2com4 .Addltem  "Hours",  2 
po2on . po2com4 .Addltem  "Days",  3 

Dim  pop49u  As  Module 
Dim  pop49ui  As  Long 
Dim  pop49uv  As  String 

pop49ui  =  m. Modules . Find (smFindTag,  "pop49") 

Set  pop49u  =  m. Modules (pop49ui) 
pop49uv  =  pop49u . Data ("Units" ) 

po2on . po2com6 . value  =  pop49uv 
po2on . po2com6 .Addltem  "Seconds",  0 
po2on . po2com6 .Addltem  "Minutes",  1 
po2on . po2com6 .Addltem  "Hours",  2 
po2on . po2com6 .Addltem  "Days",  3 

Dim  pop50u  As  Module 
Dim  pop50ui  As  Long 
Dim  pop50uv  As  String 
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734 
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747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 
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785 
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791 


pop50ui  =  m. Modules . Find (smFindTag, 
Set  pop50u  =  m. Modules (pop50ui) 
pop50uv  =  pop50u . Data ( "Units" ) 

po2on . po2com8 . value  =  pop50uv 
po2on . po2com8 . Addltem  "Seconds",  0 
po2on . po2com8 . Addltem  "Minutes",  1 
po2on . po2com8 .Addltem  "Hours",  2 
po2on . po2com8 .Addltem  "Days",  3 

Dim  pop51u  As  Module 

Dim  pop51ui  As  Long 

Dim  pop51uv  As  String 

pop51ui  =  m. Modules . Find (smFindTag, 

Set  pop51u  =  m. Modules (pop51ui) 

pop51uv  =  pop51u . Data ( "Units" ) 

po2on . po2coml0 .value  =  pop51uv 
po2on . po2coml0 .Addltem  "Seconds",  0 
po2on . po2coml0 .Addltem  "Minutes",  1 
po2on . po2coml0 . Addltem  "Hours",  2 
po2on . po2coml0 . Addltem  "Days",  3 

Dim  pop52u  As  Module 

Dim  pop52ui  As  Long 

Dim  pop52uv  As  String 

pop52ui  =  m. Modules . Find (smFindTag, 

Set  pop52u  =  m. Modules (pop52ui) 

pop52uv  =  pop52u . Data ( "Units" ) 


po2on . po2coml2 . value  =  pop52uv 
po2on . po2coml2 .Addltem  "Seconds",  0 
po2on . po2coml2 .Addltem  "Minutes",  1 
po2on . po2coml2 .Addltem  "Hours",  2 
po2on . po2coml2 .Addltem  "Days",  3 


Dim  pop64u  As  Module 

Dim  pop64ui  As  Long 

Dim  pop64uv  As  String 

pop64ui  =  m. Modules . Find (smFindTag, 

Set  pop64u  =  m. Modules (pop64ui) 

pop64uv  =  pop64u . Data ( "Units" ) 


po2on . po2coml4 .value  = 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 
po2on . po2coml4 . Addltem 


pop64uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


po2on . po2com38 .value  = 
po2on . po2com38 . Addltem 
po2on . po2com38 .Addltem 
po2on . po2com38 .Addltem 
po2on . po2com38 .Addltem 


pop64uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop53u  As  Module 

Dim  pop53ui  As  Long 

Dim  pop53uv  As  String 

pop53ui  =  m. Modules . Find (smFindTag, 

Set  pop53u  =  m. Modules (pop53ui) 

pop53uv  =  pop53u . Data ( "Units" ) 

po2on . po2coml 6 . value  =  pop53uv 
po2on . po2coml 6 . Addltem  "Seconds",  0 
po2on . po2coml 6 . Addltem  "Minutes",  1 
po2on . po2coml 6 . Addltem  "Hours",  2 
po2on . po2coml 6 . Addltem  "Days",  3 


Dim  pop54u  As  Module 
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Dim  pop54ui  As  Long 

Dim  pop54uv  As  String 

pop54ui  =  m. Modules . Find (smFindTag, 

Set  pop54u  =  m. Modules (pop54ui) 

pop54uv  =  pop54u . Data ( "Units" ) 

po2on . po2coml8 . value  =  pop54uv 
po2on . po2coml 8 . Addltem  "Seconds",  0 
po2on . po2coml 8 . Addltem  "Minutes",  1 
po2on . po2coml 8 .Addltem  "Hours",  2 
po2on . po2coml 8 .Addltem  "Days",  3 

Dim  pop55u  As  Module 

Dim  pop55ui  As  Long 

Dim  pop55uv  As  String 

pop55ui  =  m. Modules . Find (smFindTag, 

Set  pop55u  =  m. Modules (pop55ui) 

pop55uv  =  pop55u . Data ("Units" ) 

po2on . po2com20 . value  =  pop55uv 
po2on . po2com20 . Addltem  "Seconds",  0 
po2on . po2com20 . Addltem  "Minutes",  1 
po2on . po2com20 . Addltem  "Hours",  2 
po2on . po2com20 . Addltem  "Days",  3 

Dim  pop56u  As  Module 

Dim  pop56ui  As  Long 

Dim  pop56uv  As  String 

pop56ui  =  m. Modules . Find (smFindTag, 

Set  pop56u  =  m. Modules (pop56ui) 

pop56uv  =  pop56u . Data ( "Units" ) 

po2on . po2com22 .value  =  pop56uv 
po2on . po2com22 .Addltem  "Seconds",  0 
po2on . po2com22 .Addltem  "Minutes",  1 
po2on . po2com22 .Addltem  "Hours",  2 
po2on . po2com22 .Addltem  "Days",  3 

Dim  pop57u  As  Module 

Dim  pop57ui  As  Long 

Dim  pop57uv  As  String 

pop57ui  =  m. Modules . Find (smFindTag, 

Set  pop57u  =  m. Modules (pop57ui) 

pop57uv  =  pop57u . Data ( "Units" ) 

po2on . po2com24 . value  =  pop57uv 
po2 on . po2com2 4 . Addltem  "Seconds",  0 
po2on . po2com24 .Addltem  "Minutes",  1 
po2on . po2com24 .Addltem  "Hours",  2 
po2on . po2com24 .Addltem  "Days",  3 

Dim  pop58u  As  Module 

Dim  pop58ui  As  Long 

Dim  pop58uv  As  String 

pop58ui  =  m. Modules . Find (smFindTag, 

Set  pop58u  =  m. Modules (pop58ui) 

pop58uv  =  pop58u . Data ("Units" ) 

po2on . po2com2 6 . value  =  pop58uv 
po2on . po2com2 6 . Addltem  "Seconds",  0 
po2on . po2com2 6 . Addltem  "Minutes",  1 
po2on . po2com2 6 . Addltem  "Hours",  2 
po2on . po2com2 6 . Addltem  "Days",  3 

Dim  pop59u  As  Module 

Dim  pop59ui  As  Long 

Dim  pop59uv  As  String 

pop59ui  =  m. Modules . Find (smFindTag, 

Set  pop59u  =  m. Modules (pop59ui) 
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pop59uv  =  pop59u . Data ( "Units" ) 


po2on . po2com2 8 . value  = 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 
po2on . po2com28 . Addltem 


pop59uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop60u  As  Module 

Dim  pop60ui  As  Long 

Dim  pop60uv  As  String 

pop60ui  =  m. Modules . Find (smFindTag, 

Set  pop60u  =  m. Modules (pop60ui) 

pop60uv  =  pop60u . Data ( "Units" ) 


po2on . po2com30 . value  =  pop60uv 
po2on . po2com30 .Addltem  "Seconds",  0 
po2on . po2com30 .Addltem  "Minutes",  1 
po2on . po2com30 .Addltem  "Hours",  2 
po2on . po2com30 .Addltem  "Days",  3 

Dim  pop61u  As  Module 

Dim  pop61ui  As  Long 

Dim  pop61uv  As  String 

pop61ui  =  m. Modules . Find (smFindTag, 

Set  pop61u  =  m. Modules (pop61ui) 

pop61uv  =  pop61u . Data ( "Units" ) 

po2on . po2com32 . value  =  pop61uv 
po2on . po2com32 . Addltem  "Seconds",  0 
po2on . po2com32 .Addltem  "Minutes",  1 
po2on . po2com32 .Addltem  "Hours",  2 
po2on . po2com32 .Addltem  "Days",  3 

Dim  pop62u  As  Module 

Dim  pop62ui  As  Long 

Dim  pop62uv  As  String 

pop62ui  =  m. Modules . Find (smFindTag, 

Set  pop62u  =  m. Modules (pop62ui) 

pop62uv  =  pop62u . Data ("Units" ) 

po2on . po2com34 .value  =  pop62uv 
po2on . po2com34 . Addltem  "Seconds",  0 
po2on . po2com34 . Addltem  "Minutes",  1 
po2on . po2com34 . Addltem  "Hours",  2 
po2on . po2com34 . Addltem  "Days",  3 

Dim  pop63u  As  Module 

Dim  pop63ui  As  Long 

Dim  pop63uv  As  String 

pop63ui  =  m. Modules . Find (smFindTag, 

Set  pop63u  =  m. Modules (pop63ui) 

pop63uv  =  pop63u . Data ( "Units" ) 

po2on . po2com36 . value  =  pop63uv 
po2on . po2com36 .Addltem  "Seconds",  0 
po2on . po2com36 .Addltem  "Minutes",  1 
po2on . po2com36 .Addltem  "Hours",  2 
po2on . po2com36 . Addltem  "Days",  3 

Dim  pop34u  As  Module 

Dim  pop34ui  As  Long 

Dim  pop34uv  As  String 

pop34ui  =  m. Modules . Find (smFindTag, 

Set  pop34u  =  m. Modules (pop34ui) 

pop34uv  =  pop34u . Data ( "Units" ) 

po2on . po2com40 . value  =  pop34uv 
po2on . po2com40 . Addltem  "Seconds",  0 
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po2on . po2com40 . Addltem  "Minutes",  1 
po2on . po2com40 . Addltem  "Hours",  2 
po2on . po2com40 . Addltem  "Days",  3 

Dim  pop35u  As  Module 

Dim  pop35ui  As  Long 

Dim  pop35uv  As  String 

pop35ui  =  m. Modules . Find (smFindTag, 

Set  pop35u  =  m. Modules (pop35ui) 

pop35uv  =  pop35u . Data ( "Units" ) 


po2on . po2com42 . value  = 
po2on . po2com42 .Addltem 
po2on . po2com42 .Addltem 
po2on . po2com42 .Addltem 
po2on . po2com42 .Addltem 


pop35uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


End  Sub 
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Project/po3of fpreint 


1  Private  Sub  CommandButton6_Click ( ) 

2  Me. Hide 

3  polprelim. Show 

4  End  Sub 

5  Private  Sub  CommandButton7_Click ( ) 

6  Hierarchy . done05 .Visible  =  True 

7  'code  below  checks  to  see  if  any  option  button  sets  were  not  clicked ,  and  if 
so,  forces  the  user  to  make  a  choice. 

8  Dim  msgResult  As  Integer 

9  If  (po3optl . value  =  False  And  po3opt2 . value  =  False)  Then 

10  msgResult  =  MsgBox("You  must  make  an  integration  orientation  choice.  Click 
Yes  if  integration  takes  place  horizontally.  Click  No  if  integration  takes  place 
vertically.",  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  po3optl .value  =  True 

13  Else 

14  po3opt2 . value  =  True 

15  End  If 

16  End  If 

17  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

18  Dim  m  As  Model 

19  Set  m  =  ThisDocument .Model 

20  Dim  pop8  As  Module 

21  Dim  pop8i  As  Long 

22  pop8i  =  m. Modules . Find (smFindTag,  "pop8") 

23  Set  pop8  =  m. Modules (pop8i) 

24  pop8 . Data ( "Expression" )  =  po3coml.Text 

25  pop8 . Data ( "Units" )  =  po3com2.Text 

26  Dim  pop9  As  Module 

27  Dim  pop9i  As  Long 

28  pop9i  =  m. Modules . Find (smFindTag,  "pop9") 

29  Set  pop9  =  m. Modules (pop9i) 

30  pop9 . Data ( "Expression" )  =  po3com3.Text 

31  pop9 . Data ( "Units" )  =  po3com4.Text 

32  Dim  poplO  As  Module 

33  Dim  poplOi  As  Long 

34  poplOi  =  m. Modules . Find (smFindTag,  "poplO") 

35  Set  poplO  =  m. Modules (poplOi) 

36  poplO . Data ("Expression" )  =  po3com5 . Text 

37  poplO . Data ("Units" )  =  po3com6 . Text 

38  Dim  popll  As  Module 

39  Dim  poplli  As  Long 

40  poplli  =  m. Modules . Find (smFindTag,  "popll") 

41  Set  popll  =  m. Modules (poplli) 

42  popll . Data ( "Expression" )  =  po3com7.Text 

43  popll . Data ( "Units" )  =  po3com8.Text 

44  Dim  popl2  As  Module 

45  Dim  popl2i  As  Long 

46  popl2i  =  m. Modules . Find (smFindTag,  "popl2") 

47  Set  popl2  =  m. Modules (popl2i) 

48  popl2 . Data ( "Expression" )  =  po3com9.Text 

49  popl2 . Data ( "Units" )  =  po3coml0 . Text 

50  Dim  popl3  As  Module 

51  Dim  popl3i  As  Long 

52  popl3i  =  m. Modules . Find (smFindTag,  "popl3") 
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53  Set  popl3  =  m. Modules (popl3i) 

54  popl3 . Data ( "Expression" )  =  po3comll . Text 

55  popl3 . Data ( "Units" )  =  po3coml2 . Text 

56  Dim  pop33  As  Module 

57  Dim  pop33i  As  Long 

58  pop33i  =  m. Modules . Find (smFindTag,  "pop33") 

59  Set  pop33  =  m. Modules (pop33i) 

60  If  po3frml .Visible  =  True  Then 

61  pop33 . Data ( "Expression" )  =  po3coml3 . Text 

62  pop33 . Data ( "Units" )  =  po3coml4 . Text 

63  Else 

64  pop33 . Data ( "Expression" )  =  po3com23 . Text 

65  pop33 . Data ( "Units" )  =  po3com24 . Text 

66  End  If 

67  Dim  popl4  As  Module 

68  Dim  popl4i  As  Long 

69  popl4i  =  m. Modules . Find (smFindTag,  "popl4") 

70  Set  popl4  =  m. Modules (popl4i) 

71  popl4 . Data ( "Expression" )  =  po3coml5 . Text 

72  popl4 . Data ( "Units" )  =  po3coml 6 . Text 

73  Dim  popl5  As  Module 

74  Dim  popl5i  As  Long 

75  popl5i  =  m. Modules . Find (smFindTag,  "popl5") 

76  Set  popl5  =  m. Modules (popl5i) 

77  popl5 . Data ( "Expression" )  =  po3coml7 . Text 

78  popl5 . Data ( "Units" )  =  po3coml8 . Text 

79  Dim  popl6  As  Module 

80  Dim  popl6i  As  Long 

81  popl6i  =  m . Modules . Find ( smFindTag,  "popl6") 

82  Set  popl6  =  m. Modules (popl6i) 

83  popl6 . Data ( "Expression" )  =  po3coml 9 . Text 

84  popl6 . Data ( "Units" )  =  po3com20 . Text 

85  Dim  popl7  As  Module 

86  Dim  popl7i  As  Long 

87  popl7i  =  m. Modules . Find (smFindTag,  "popl7") 

88  Set  popl7  =  m. Modules (popl7i) 

89  popl7 . Data ( "Expression" )  =  po3com21 . Text 

90  popl7 . Data ( "Units" )  =  po3com22 . Text 

91  ' Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

92  Dim  pov4  As  Module 

93  Dim  pov4i  As  Long 

94  pov4i  =  m. Modules . Find (smFindTag,  "pov4") 

95  Set  pov4  =  m. Modules (pov4i) 

96  If  po3opt2 . value  =  True  Then 

97  pov4 . Data (" Initial  Value")  =  "1" 

98  Else 

99  pov4 . Data (" Initial  Value")  =  "0" 

100  End  If 

101  'code  below  hides  the  current  form  and  then  shows  the  next  form  in  the  sequence 

102  Me. Hide 

103  po5of fhyper . Show 

104  End  Sub 

105  Private  Sub  CommandButton9_Click ( ) 

106  Hierarchy . done05 .Visible  =  True 

107  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

108  Dim  m  As  Model 

109  Set  m  =  ThisDocument .Model 
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134 
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136 

137 
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141 
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Dim  pop8  As  Module 
Dim  pop8i  As  Long 

pop8i  =  m. Modules . Find (smFindTag,  "pop8") 
Set  pop8  =  m. Modules (pop8i) 
pop8 . Data ( "Expression" )  =  po3coml.Text 
pop8 . Data ( "Units" )  =  po3com2.Text 

Dim  pop9  As  Module 
Dim  pop9i  As  Long 

pop9i  =  m . Modules . Find ( smFindTag,  "pop9") 
Set  pop9  =  m. Modules (pop9i) 
pop9 . Data ( "Expression" )  =  po3com3.Text 
pop9 . Data ( "Units" )  =  po3com4.Text 

Dim  poplO  As  Module 
Dim  poplOi  As  Long 

poplOi  =  m. Modules . Find (smFindTag,  "poplO") 
Set  poplO  =  m. Modules (poplOi) 
poplO . Data ( "Expression" )  =  po3com5.Text 
poplO . Data ( "Units" )  =  po3com6.Text 

Dim  popll  As  Module 
Dim  poplli  As  Long 

poplli  =  m. Modules . Find (smFindTag,  "popll") 
Set  popll  =  m. Modules (poplli) 
popl 1 . Data ( "Expression" )  =  po3com7.Text 
popll . Data ("Units" )  =  po3com8 . Text 

Dim  popl2  As  Module 
Dim  popl2i  As  Long 

popl2i  =  m. Modules . Find (smFindTag,  "popl2") 
Set  popl2  =  m. Modules (popl2i) 
popl2 . Data ( "Expression" )  =  po3com9 . Text 
popl2 . Data ("Units" )  =  po3coml0 . Text 

Dim  popl3  As  Module 
Dim  popl3i  As  Long 

popl3i  =  m. Modules . Find (smFindTag,  "popl3") 
Set  popl3  =  m. Modules (popl3i) 
popl3 . Data ( "Expression" )  =  po3comll .Text 
popl3 . Data ("Units" )  =  po3coml2 . Text 

Dim  pop33  As  Module 
Dim  pop33i  As  Long 

pop33i  =  m. Modules . Find (smFindTag,  "pop33") 
Set  pop33  =  m. Modules (pop33i) 

If  po3frml .Visible  =  True  Then 

pop33 . Data ("Expression" )  =  po3coml3 . Text 
pop33 . Data ("Units" )  =  po3coml4 . Text 
Else 

pop33 . Data ( "Expression" )  =  po3com23 . Text 
pop33 . Data ( "Units" )  =  po3com24 . Text 
End  If 

Dim  popl4  As  Module 
Dim  popl4i  As  Long 

popl4i  =  m. Modules . Find (smFindTag,  "popl4") 
Set  popl4  =  m. Modules (popl4i) 
popl4 . Data ( "Expression" )  =  po3coml5 . Text 
popl4 . Data ("Units" )  =  po3coml 6 . Text 

Dim  popl5  As  Module 
Dim  popl5i  As  Long 

popl5i  =  m. Modules . Find (smFindTag,  "popl5") 
Set  popl5  =  m. Modules (popl5i) 
popl5 . Data ( "Expression" )  =  po3coml7 . Text 
popl5 . Data ("Units" )  =  po3coml 8 . Text 
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174 

Dim  popl6  As  Module 

Dim  popl6i  As  Long 

popl6i  =  m. Modules . Find (smFindTag,  "popl6") 

Set  popl6  =  m. Modules (popl6i) 

popl 6 . Data ( "Expression" )  =  po3coml 9 . Text 

popl6 .Data ("Units")  =  po3com20 . Text 

175 

176 

177 

178 

179 

180 

Dim  popl7  As  Module 

Dim  popl7i  As  Long 

popl7i  =  m. Modules . Find (smFindTag,  "popl7") 

Set  popl7  =  m. Modules (popl7i) 

popl7 . Data ( "Expression" )  =  po3com21 . Text 

popl7 . Data ( "Units" )  =  po3com22 . Text 

181  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 

initial  values  for  the  variables  that  control  the  corresponding  decision  modules 
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184 

185 

186 

187 

188 

189 

190 

Dim  pov4  As  Module 

Dim  pov4i  As  Long 

pov4i  =  m. Modules . Find (smFindTag,  "pov4") 

Set  pov4  =  m. Modules (pov4i) 

If  po3opt2 . value  =  True  Then 

pov4 . Data (" Initial  Value")  =  "1" 

Else 

pov4 . Data (" Initial  Value")  =  "0" 

End  If 

191 

192 

Me . Hide 

Hierarchy. Show 

193 

End  Sub 

194 

Private  Sub  Labell  Click () 

195 

End  Sub 

196 

Private  Sub  Labelll  Click () 

197 

End  Sub 

198 

Private  Sub  Labell2  Click () 

199 

End  Sub 

200 

Private  Sub  Labell5  Click () 

201 

End  Sub 

202 

Private  Sub  Label23  Click () 

203 

End  Sub 

204 

Private  Sub  OptionButtonl  Click () 

205 

End  Sub 

206 

Private  Sub  0ptionButton2  Click () 

207 

End  Sub 

208 

Private  Sub  OptionButton4  Click () 

209 

End  Sub 

210 

Private  Sub  OptionButton6  Click () 

211 

End  Sub 

212 

213 

Private  Sub  po3optl  Click () 
po3frm2 .Visible  =  True 
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214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 


po3frml .Visible  =  False 
po6erect ,po6frml . Visible  =  False 
po6erect ,po6frm2 . Visible  =  True 

End  Sub 

Private  Sub  po3opt2_Click ( ) 
po3frm2 .Visible  =  False 
po3frml .Visible  =  True 
po6erect ,po6frml .Visible  =  True 
po6erect ,po6frm2 .Visible  =  False 


End  Sub 

Private  Sub  ToggleButtonl_Click ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 

End  Sub 

Private  Sub  UserForm_Initialize ( ) 
Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


'Code  below  populates  large  combo  boxes  for  OW-02  thru  OW-13 
Dim  pop8  As  Module 
Dim  pop8i  As  Long 
Dim  pop8v  As  String 

pop8i  =  m. Modules . Find (smFindTag,  "pop8") 

Set  pop8  =  m. Modules (pop8i) 
pop8v  =  pop8 . Data ( "Expression" ) 

po3offpreint . po3coml . value  =  pop8v 

po3of fpreint . po3coml . Addltem  "TRIA  (  54,  60,  84  )",  0 
po3of fpreint . po3coml . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po3of fpreint . po3coml .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po3of fpreint . po3coml .Addltem  "EXPO  (  Mean  )",  3 
po3of fpreint . po3coml .Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop9  As  Module 
Dim  pop9i  As  Long 
Dim  pop9v  As  String 

pop9i  =  m. Modules . Find (smFindTag,  "pop9") 

Set  pop9  =  m. Modules (pop9i) 
pop9v  =  pop9 . Data ( "Expression" ) 


po3of fpreint . po3com3 . value  = 
po3of fpreint . po3com3 . Addltem 

pop9v 

"TRIA 

(  108, 

120, 

168  )  ' 

',  o 

po3of fpreint . po3com3 . Addltem 

"TRIA 

(  Min, 

Mode, 

Max  ) 

",  1 

po3of fpreint . po3com3 . Addltem 

"NORM 

(  Mean, 

.  StdDev  ) " , 

.  2 

po3of fpreint . po3com3 . Addltem 
po3of fpreint . po3com3 . Addltem 

"EXPO 

"UNIF 

(  Mean 
(  Min, 

)",  3 

Max  ) " ,  4 

Dim  poplO  As  Module 
Dim  poplOi  As  Long 
Dim  poplOv  As  String 

poplOi  =  m . Modules . Find ( smFindTag,  "poplO") 
Set  poplO  =  m. Modules (poplOi) 
poplOv  =  poplO . Data ( "Expression" ) 


po3of fpreint 
po3of fpreint 
po3of fpreint 
po3of fpreint 
po3of fpreint 
po3of fpreint 


po3com5 .value  = 
po3com5 . Addltem 
po3com5 . Addltem 
po3com5 . Addltem 
po3com5 . Addltem 
po3com5 . Addltem 


poplOv 
"TRIA  (27, 
"TRIA  (  Min, 
"NORM  (  Mean 
"EXPO  (  Mean 
"UNIF  (  Min, 


10,  42  )",  0 
Mode,  Max  )", 
StdDev  ) ",  2 
)",  3 
Max  ) " ,  4 
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268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 


Dim  popll  As  Module 
Dim  poplli  As  Long 
Dim  popllv  As  String 

poplli  =  m. Modules . Find (smFindTag,  "popll") 


Set  popll  =  m. Modules (poplli) 
popllv  =  popl 1 . Data ( "Express) 

po3offpreint . po3com7 . value  = 
po3of fpreint . po3com7 . Addltem 
po3of fpreint . po3com7 .Addltem 
po3of fpreint . po3com7 .Addltem 
po3of fpreint . po3com7 .Addltem 
po3of fpreint . po3com7 .Addltem 


on" ) 


popllv 

"TRIA  ( 

81, 

90,  126  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  popl2  As  Module 
Dim  popl2i  As  Long 
Dim  popl2v  As  String 

popl2i  =  m. Modules . Find (smFindTag,  "popl2") 
Set  popl2  =  m. Modules (popl2i) 
popl2v  =  popl2 . Data ( "Expression" ) 


po3of fpreint .po3com9 . value  = 
po3of fpreint . po3com9 . Addltem 
po3of fpreint . po3com9 . Addltem 
po3of fpreint . po3com9 . Addltem 
po3of fpreint . po3com9 . Addltem 
po3of fpreint . po3com9 . Addltem 


popl2v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  popl3  As  Module 
Dim  popl3i  As  Long 
Dim  popl3v  As  String 

popl3i  =  m. Modules . Find (smFindTag,  "popl3") 
Set  popl3  =  m. Modules (popl3i) 
pop!3v  =  pop!3 . Data ( "Expression" ) 


po3of fpreint . po3coml 1 .value  = 
po3of fpreint . po3coml 1 .Addltem 
po3of fpreint . po3coml 1 .Addltem 
po3of fpreint . po3coml 1 .Addltem 
po3of fpreint . po3coml 1 .Addltem 
po3of fpreint . po3coml 1 .Addltem 


popl3v 

"TRIA  ( 

36, 

40,  56  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop33  As  Module 
Dim  pop33i  As  Long 
Dim  pop33v  As  String 

pop33i  =  m. Modules . Find (smFindTag,  "pop33") 
Set  pop33  =  m. Modules (pop33i) 
pop33v  =  pop33 . Data ( "Expression" ) 


po3of fpreint . po3coml3 . value  = 
po3of fpreint . po3coml3 .Addltem 
po3of fpreint . po3coml3 .Addltem 
po3of fpreint . po3coml3 .Addltem 
po3of fpreint . po3coml3 .Addltem 
po3of fpreint . po3coml3 .Addltem 

po3of fpreint . po3com23 . value  = 
po3of fpreint . po3com23 .Addltem 
po3of fpreint . po3com23 .Addltem 
po3of fpreint . po3com23 .Addltem 
po3of fpreint . po3com23 .Addltem 
po3of fpreint . po3com23 .Addltem 


pop33v 


"TRIA  ( 

27, 

30,  42 

>  ■ 

'  , 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

'  , 

i 

"NORM  ( 

Mean 

,  StdDev 

) ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  1 

'' 

4 

pop33v 

"TRIA  ( 

27, 

30,  42 

) ' 

' , 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

' , 

i 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ' 

'  , 

4 

Dim  popl4  As  Module 
Dim  popl4i  As  Long 
Dim  popl4v  As  String 

popl4i  =  m. Modules . Find (smFindTag,  "popl4") 
Set  popl4  =  m. Modules (popl4i) 
pop!4v  =  pop!4 . Data ( "Expression" ) 
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328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 


po3offpreint . po3coml5 . value  = 
po3of fpreint . po3coml5 .Add Item 
po3of fpreint . po3coml5 . Addltem 
po3of fpreint . po3coml5 .Addltem 
po3of fpreint . po3coml5 .Addltem 
po3of fpreint . po3coml5 .Addltem 


popl4v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  popl5  As  Module 
Dim  popl5i  As  Long 
Dim  popl5v  As  String 

popl5i  =  m. Modules . Find (smFindTag,  "popl5") 
Set  popl5  =  m. Modules (popl5i) 
popl5v  =  pop!5 . Data ( "Expression" ) 


po3of fpreint . po3coml7 . value  = 
po3of fpreint . po3coml7 .Addltem 
po3of fpreint . po3coml7 .Addltem 
po3of fpreint . po3coml7 .Addltem 
po3of fpreint . po3coml7 .Addltem 
po3of fpreint . po3coml7 .Addltem 


popl5v 

"TRIA  ( 

54, 

60,  84  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  popl6  As  Module 
Dim  popl6i  As  Long 
Dim  popl6v  As  String 

popl6i  =  m. Modules . Find (smFindTag,  "popl6") 
Set  popl6  =  m. Modules (popl6i) 
popl6v  =  popl6 . Data ( "Expression" ) 


po3of fpreint . po3coml 9 . value  = 
po3of fpreint . po3coml 9 .Addltem 
po3of fpreint . po3coml 9 .Addltem 
po3of fpreint . po3coml 9 .Addltem 
po3of fpreint . po3coml 9 .Addltem 
po3of fpreint . po3coml 9 .Addltem 


popl6v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  popl7  As  Module 
Dim  popl7i  As  Long 
Dim  popl7v  As  String 

popl7i  =  m. Modules . Find (smFindTag,  "popl7") 
Set  popl7  =  m. Modules (popl7i) 
popl7v  =  popl7 . Data ( "Expression" ) 


po3of fpreint . po3com2 1 .value  = 
po3of fpreint . po3com2 1 .Addltem 
po3of fpreint . po3com2 1 .Addltem 
po3of fpreint . po3com2 1 .Addltem 
po3of fpreint . po3com2 1 .Addltem 
po3of fpreint . po3com2 1 .Addltem 


popl7v 


TRIA 

(  27, 

30,  42  )",  0 

TRIA 

(  Min, 

Mode,  Max  ) 

NORM 

(  Mean 

,  StdDev  ) " , 

EXPO 

(  Mean 

>",  3 

UNIF 

(  Min, 

Max  ) " ,  4 

'Code  below  populates  small  combo  boxes  for  OW-02  thru  OW-13 
Dim  pop8u  As  Module 
Dim  pop8ui  As  Long 
Dim  pop8uv  As  String 

pop8ui  =  m. Modules . Find (smFindTag,  "pop8") 

Set  pop8u  =  m. Modules (pop8ui) 
pop8uv  =  pop8u . Data ( "Units" ) 


po3of fpreint . po3com2 . value  =  pop8uv 
po3of fpreint . po3com2 . Addltem  "Seconds",  0 
po3of fpreint . po3com2 . Addltem  "Minutes",  1 
po3of fpreint . po3com2 . Addltem  "Hours",  2 
po3of fpreint . po3com2 . Addltem  "Days",  3 


Dim  pop9u  As  Module 
Dim  pop9ui  As  Long 
Dim  pop9uv  As  String 

pop9ui  =  m. Modules . Find (smFindTag,  "pop9") 
Set  pop9u  =  m. Modules (pop9ui) 
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387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 


pop9uv  =  pop9u . Data ( "Units" ) 


po3offpreint . po3com4 . value  = 
po3of fpreint . po3com4 . Addltem 
po3of fpreint . po3com4 . Addltem 
po3of fpreint . po3com4 . Addltem 
po3of fpreint . po3com4 . Addltem 


pop9uv 
"Seconds 
"Minutes 
"Hours" , 
"Days" , 


Dim  poplOu  As  Module 

Dim  poplOui  As  Long 

Dim  poplOuv  As  String 

poplOui  =  m. Modules . Find (smFindTag, 

Set  poplOu  =  m. Modules (poplOui) 

poplOuv  =  poplOu . Data ( "Units" ) 


po3of fpreint . po3com6 . value  =  poplOuv 
po3of fpreint . po3com6 .Addltem  "Seconds 
po3of fpreint . po3com6 .Addltem  "Minutes 
po3of fpreint . po3com6 .Addltem  "Hours" , 
po3of fpreint . po3com6 .Addltem  "Days" , 

Dim  popllu  As  Module 

Dim  popllui  As  Long 

Dim  poplluv  As  String 

popllui  =  m. Modules . Find (smFindTag,  " 

Set  popllu  =  m. Modules (popllui) 

poplluv  =  popllu . Data ( "Units" ) 

po3of fpreint . po3com8 . value  =  poplluv 
po3of fpreint . po3com8 .Addltem  "Seconds 
po3of fpreint . po3com8 .Addltem  "Minutes 
po3of fpreint . po3com8 .Addltem  "Hours" , 
po3of fpreint . po3com8 .Addltem  "Days" , 


2 

3 


0 

1 


poplO" ) 


2 

3 


0 

1 


pop 11") 


2 

3 


0 

1 


Dim  popl2u  As  Module 
Dim  popl2ui  As  Long 
Dim  popl2uv  As  String 

popl2ui  =  m. Modules . Find (smFindTag,  "popl2") 
Set  popl2u  =  m. Modules (popl2ui) 
popl2uv  =  popl2u . Data ("Units" ) 

po3of fpreint . po3coml0 . value  =  popl2uv 
po3of fpreint . po3coml0 .Addltem  "Seconds",  0 
po3of fpreint . po3coml0 .Addltem  "Minutes",  1 
po3of fpreint . po3coml0 .Addltem  "Hours",  2 
po3of fpreint . po3coml0 .Addltem  "Days",  3 


Dim  popl3u  As  Module 
Dim  popl3ui  As  Long 
Dim  popl3uv  As  String 

popl3ui  =  m. Modules . Find (smFindTag,  "popl3") 
Set  popl3u  =  m. Modules (popl3ui) 
popl3uv  =  popl3u . Data ( "Units" ) 

po3of fpreint . po3coml2 . value  =  popl3uv 
po3of fpreint . po3coml2 .Addltem  "Seconds",  0 
po3of fpreint . po3coml2 .Addltem  "Minutes",  1 
po3of fpreint . po3coml2 .Addltem  "Hours",  2 
po3of fpreint . po3coml2 .Addltem  "Days",  3 


Dim  pop33u  As  Module 
Dim  pop33ui  As  Long 
Dim  pop33uv  As  String 

pop33ui  =  m. Modules . Find (smFindTag,  "pop33") 
Set  pop33u  =  m. Modules (pop33ui) 
pop33uv  =  pop33u . Data ( "Units" ) 

po3of fpreint . po3coml4 . value  =  pop33uv 
po3of fpreint . po3coml4 .Addltem  "Seconds",  0 
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445  po3of fpreint .po3coml4 . Addltem  "Minutes",  1 

446  po3of fpreint . po3coml4 .Addltem  "Hours",  2 

447  po3of fpreint .po3com!4 .Addltem  "Days",  3 


448 

449 

450 

451 

452 


po3of fpreint . po3com24 . value  = 
po3of fpreint .po3com24 .Addltem 
po3of fpreint .po3com24 .Addltem 
po3of fpreint .po3com24 .Addltem 
po3of fpreint .po3com24 .Addltem 


pop33uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


453  Dim  popl4u  As  Module 

454  Dim  popl4ui  As  Long 

455  Dim  popl4uv  As  String 

456  popl4ui  =  m. Modules . Find (smFindTag,  "popl4") 

457  Set  popl4u  =  m. Modules (popl4ui) 

458  popl4uv  =  popl4u . Data ( "Units" ) 


459  po3of fpreint .po3coml6 .value  =  popl4uv 

460  po3of fpreint .po3coml6 .Addltem  "Seconds",  0 

461  po3of fpreint .po3coml6 .Addltem  "Minutes",  1 

462  po3of fpreint .po3coml6 .Addltem  "Hours",  2 

463  po3of fpreint .po3coml6 .Addltem  "Days",  3 


464  Dim  popl5u  As  Module 

465  Dim  popl5ui  As  Long 

466  Dim  popl5uv  As  String 

467  popl5ui  =  m. Modules . Find (smFindTag,  "popl5") 

468  Set  popl5u  =  m. Modules (popl5ui) 

469  popl5uv  =  popl5u . Data ( "Units" ) 


470  po3of fpreint .po3coml8 .value  =  popl5uv 

471  po3of fpreint .po3coml8 .Addltem  "Seconds",  0 

472  po3of fpreint .po3coml8 .Addltem  "Minutes",  1 

473  po3of fpreint .po3coml8 .Addltem  "Hours",  2 

474  po3of fpreint .po3coml8 .Addltem  "Days",  3 

475  Dim  popl6u  As  Module 

476  Dim  popl6ui  As  Long 

477  Dim  popl6uv  As  String 

478  popl6ui  =  m. Modules . Find (smFindTag,  "popl6") 

479  Set  popl6u  =  m. Modules (popl6ui) 

480  popl6uv  =  popl6u . Data ( "Units" ) 

481  po3of fpreint . po3com20 . value  =  popl6uv 

482  po3of fpreint .po3com20 .Addltem  "Seconds",  0 

483  po3of fpreint . po3com20 .Addltem  "Minutes",  1 

484  po3of fpreint . po3com20 .Addltem  "Hours",  2 

485  po3of fpreint . po3com20 .Addltem  "Days",  3 

486  Dim  popl7u  As  Module 

487  Dim  popl7ui  As  Long 

488  Dim  popl7uv  As  String 

489  popl7ui  =  m. Modules . Find (smFindTag,  "popl7") 

490  Set  popl7u  =  m. Modules (popl7ui) 

491  popl7uv  =  popl7u . Data ( "Units" ) 

492  po3of fpreint . po3com22 . value  =  popl7uv 

493  po3of fpreint .po3com22 .Addltem  "Seconds",  0 

494  po3of fpreint .po3com22 .Addltem  "Minutes",  1 

495  po3of fpreint .po3com22 .Addltem  "Hours",  2 

496  po3of fpreint .po3com22 .Addltem  "Days",  3 

497  End  Sub 

Pro ject/po4of fnopreint 


1  Private  Sub  CommandButton6_Click ( ) 

2  Me. Hide 

3  polprelim. Show 
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4 


End  Sub 


5  Private  Sub  CommandButton7_Click ( ) 
Hierarchy . done06 . Visible  =  True 


7  'code  below  checks  to  see  if  any  option  button  sets  are  not  clicked,  and  if  so, 
forces  the  user  to  make  a  choice 

8  Dim  msgResult  As  Integer 

9  If  (po4optl . value  =  False  And  po4opt2 .value  =  False)  Then 

10  msgResult  =  MsgBox("You  must  make  an  integration  orientation  choice.  Click 

Yes  if  integration  takes  place  horizontally.  Click  No  if  integration  takes  place 
vertically.",  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  po4optl . value  =  True 

13  Else 

14  po4opt2 . value  =  True 

15  End  If 

16  End  If 

17  If  (po4opt2 . value  =  True  And  po4opt3 .value  =  False  And  po4opt4 . value  =  False) 


Then 

18  msgResult  =  MsgBox("You  must  make  a  payload  integration  location  decision. 

Click  Yes  if  the  payload  is  integrated  now,  in  the  integration  facility.  Click  No  if  the 
payload  is  integrated  later,  on  the  launch  pad.",  vbYesNo) 

19  If  msgResult  =  vbYes  Then 

20  po4opt3 .value  =  True 

21  Else 

22  po4opt4 .value  =  True 

23  End  If 

24  End  If 

25  If  (po4optl . value  =  True  And  po4opt5 . value  =  False  And  po4opt6 . value  =  False) 


Then 

26  msgResult  =  MsgBox("You  must  make  a  payload  integration  location  decision. 

Click  Yes  if  the  payload  is  integrated  now,  in  the  integration  facility.  Click  No  if  the 
payload  is  integrated  later,  on  the  launch  pad.",  vbYesNo) 

27  If  msgResult  =  vbYes  Then 

28  po4opt5 .value  =  True 

29  Else 

30  po4opt6 . value  =  True 

31  End  If 

32  End  If 


33  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

34  Dim  m  As  Model 

35  Set  m  =  ThisDocument .Model 


36  Dim  popl8  As  Module 

37  Dim  popl8i  As  Long 

38  popl8i  =  m. Modules . Find (smFindTag,  "popl8") 
Set  popl8  =  m. Modules (popl8i) 

40  popl8 . Data ( "Expression" )  =  po4coml.Text 

41  popl8 . Data ( "Units" )  =  po4com2.Text 

42  Dim  poplOO  As  Module 

43  Dim  poplOOi  As  Long 

44  poplOOi  =  m. Modules . Find (smFindTag,  "poplOO") 

45  Set  poplOO  =  m. Modules (poplOOi) 

46  poplOO . Data ( "Expression" )  =  po4com3.Text 

47  poplOO . Data ( "Units" )  =  po4com4.Text 

48  Dim  popl9  As  Module 

49  Dim  popl9i  As  Long 

50  popl9i  =  m. Modules . Find (smFindTag,  "popl9") 

51  Set  popl9  =  m. Modules (popl9i) 

52  popl 9 . Data ( "Expression" )  =  po4com5.Text 

53  popl9 . Data ( "Units" )  =  po4com6.Text 

54  Dim  pop20  As  Module 

55  Dim  pop20i  As  Long 
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pop20i  =  m. Modules . Find (smFindTag,  "pop20") 
Set  pop20  =  m. Modules (pop20i) 
pop20 . Data ( "Expression" )  =  po4com7 . Text 
pop20 . Data ( "Units" )  =  po4com8.Text 

Dim  pop21  As  Module 
Dim  pop21i  As  Long 

pop21i  =  m. Modules . Find (smFindTag,  "pop21") 
Set  pop21  =  m. Modules (pop21i) 
pop21 . Data ( "Expression" )  =  po4com9 . Text 
pop21 . Data ("Units" )  =  po4coml0 . Text 

Dim  pop22  As  Module 
Dim  pop22i  As  Long 

pop22i  =  m. Modules . Find (smFindTag,  "pop22") 
Set  pop22  =  m. Modules (pop22i) 
pop22 . Data ( "Expression" )  =  po4coml 1 . Text 
pop22 . Data ("Units" )  =  po4coml2 . Text 

Dim  pop23  As  Module 
Dim  pop23i  As  Long 

pop23i  =  m. Modules . Find (smFindTag,  "pop23") 
Set  pop23  =  m. Modules (pop23i) 
pop23 . Data ( "Expression" )  =  po4coml3 . Text 
pop23 . Data ("Units" )  =  po4coml4 . Text 

Dim  pop24  As  Module 
Dim  pop24i  As  Long 

pop24i  =  m. Modules . Find (smFindTag,  "pop24") 
Set  pop24  =  m. Modules (pop24i) 
pop24 . Data ( "Expression" )  =  po4com25 . Text 
pop24 . Data ( "Units" )  =  po4com2 6 . Text 

Dim  pop25  As  Module 
Dim  pop25i  As  Long 

pop25i  =  m. Modules . Find (smFindTag,  "pop25") 
Set  pop25  =  m. Modules (pop25i) 
pop25 . Data ( "Expression" )  =  po4com27 . Text 
pop25 . Data ( "Units" )  =  po4com28 . Text 

Dim  pop26  As  Module 
Dim  pop26i  As  Long 

pop26i  =  m. Modules . Find (smFindTag,  "pop26") 
Set  pop26  =  m. Modules (pop26i) 
pop2 6 . Data ( "Expression" )  =  po4com2 9 . Text 
pop26 . Data ("Units" )  =  po4com30 . Text 

Dim  pop27  As  Module 
Dim  pop27i  As  Long 

pop27i  =  m. Modules . Find (smFindTag,  "pop27") 
Set  pop27  =  m. Modules (pop27i) 
pop27 . Data ( "Expression" )  =  po4com31 . Text 
pop27 . Data ( "Units" )  =  po4com32 . Text 

Dim  pop28  As  Module 
Dim  pop28i  As  Long 

pop28i  =  m. Modules . Find (smFindTag,  "pop28") 
Set  pop28  =  m. Modules (pop28i) 
pop2 8 . Data ( "Expression" )  =  po4com33 . Text 
pop28 . Data ("Units" )  =  po4com34 . Text 

Dim  pop29  As  Module 
Dim  pop29i  As  Long 

pop29i  =  m. Modules . Find (smFindTag,  "pop29") 
Set  pop29  =  m. Modules (pop29i) 

If  po4frm3 .Visible  =  True  Then 

pop2 9 . Data ( "Expression" )  =  po4coml5 . Text 
pop29 . Data ("Units" )  =  po4coml 6 . Text 
Else 
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pop2 9 . Data ( "Expression" )  =  po4com35 . Text 
pop29 . Data ( "Units" )  =  po4com36 . Text 
End  If 

Dim  pop30  As  Module 
Dim  pop30i  As  Long 

pop30i  =  m. Modules . Find (smFindTag,  "pop30") 

Set  pop30  =  m. Modules (pop30i) 

If  po4frm3 .Visible  =  True  Then 

pop30 . Data  ( "Expression" )  =  po4coml7 . Text 
pop30 . Data ("Units" )  =  po4coml 8 . Text 
Else 

pop30 . Data ( "Expression" )  =  po4com37 . Text 
pop30 . Data ( "Units" )  =  po4com38 . Text 
End  If 

Dim  pop31  As  Module 
Dim  pop31i  As  Long 

pop31i  =  m . Modules . Find ( smFindTag,  "pop31") 

Set  pop31  =  m. Modules (pop31i) 

If  po4frm3 .Visible  =  True  Then 

pop31 . Data ( "Expression" )  =  po4coml9 . Text 
pop31 . Data ( "Units" )  =  po4com20 . Text 
Else 

pop31 . Data ("Expression" )  =  po4com39 . Text 
pop31 . Data ( "Units" )  =  po4com40 . Text 
End  If 

Dim  pop32  As  Module 
Dim  pop32i  As  Long 

pop32i  =  m. Modules . Find (smFindTag,  "pop32") 

Set  pop32  =  m. Modules (pop32i) 

If  po4frm3 .Visible  =  True  Then 

pop32 . Data ( "Expression" )  =  po4com21 . Text 
pop32 . Data ( "Units" )  =  po4com22 . Text 
Else 

pop32 . Data ( "Expression" )  =  po4com41 . Text 
pop32 . Data ( "Units" )  =  po4com42 . Text 
End  If 

Dim  pop33  As  Module 
Dim  pop33i  As  Long 

pop33i  =  m . Modules . Find ( smFindTag,  "pop33") 

Set  pop33  =  m. Modules (pop33i) 

If  po4frm3 .Visible  =  True  Then 

pop33 . Data ( "Expression" )  =  po4com23 . Text 
pop33 . Data ( "Units" )  =  po4com24 . Text 
Else 

pop31 . Data ( "Expression" )  =  po4com43 . Text 
pop31 . Data ( "Units" )  =  po4com44 . Text 
End  If 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 
Dim  pov4  As  Module 
Dim  pov4i  As  Long 

pov4i  =  m. Modules . Find (smFindTag,  "pov4") 

Set  pov4  =  m. Modules (pov4i) 

If  po4opt2 . value  =  True  Then 

pov4 . Data (" Initial  Value")  =  "1" 

Else 

pov4 . Data (" Initial  Value")  =  "0" 

End  If 

Dim  pov5  As  Module 
Dim  pov5i  As  Long 

pov5i  =  m. Modules . Find (smFindTag,  "pov5") 

Set  pov5  =  m. Modules (pov5i) 

If  po4opt3 . value  =  True  And  po4frm2 .Visible  =  True  Then 
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178  pov5 . Data (" Initial  Value")  =  "1" 

179  Elself  po4opt5 . value  =  True  And  po4frm5 .Visible  =  True  Then 

180  pov5 . Data ( "Initial  Value")  =  "1" 

181  Else 

182  pov5 . Data (" Initial  Value")  =  "0" 

183  End  If 

184  'code  below  hides  the  current  form  and  shows  the  next  form  in  the  sequence 

185  Me. Hide 

186  po5of fhyper . Show 

187  End  Sub 


188  Private  Sub  CommandButton9_Click ( ) 

189  Hi  erarchy . done06 .Visible  =  True 


190  'code  below  checks  to  see  if  any  option  button  sets  are  not  clicked,  and  if  so, 
forces  the  user  to  make  a  choice 

191  Dim  msgResult  As  Integer 

192  If  (po4optl . value  =  False  And  po4opt2 .value  =  False)  Then 

193  msgResult  =  MsgBox("You  must  make  an  integration  orientation  choice.  Click 

Yes  if  integration  takes  place  horizontally.  Click  No  if  integration  takes  place 
vertically.",  vbYesNo) 

194  If  msgResult  =  vbYes  Then 

195  po4optl . value  =  True 

196  Else 

197  po4opt2 . value  =  True 

198  End  If 

199  End  If 

200  If  (po4opt2 . value  =  True  And  po4opt3 . value  =  False  And  po4opt4 . value  =  False) 
Then 


201  msgResult  =  MsgBox("You  must  make  a  payload  integration  location  decision. 

Click  Yes  if  the  payload  is  integrated  now,  in  the  integration  facility.  Click  No  if  the 
payload  is  integrated  later,  on  the  launch  pad.",  vbYesNo) 

202  If  msgResult  =  vbYes  Then 

203  po4opt3 .value  =  True 

204  Else 

205  po4opt4 . value  =  True 

206  End  If 

207  End  If 

208  If  (po4optl . value  =  True  And  po4opt5 . value  =  False  And  po4opt6 . value  =  False) 
Then 


209  msgResult  =  MsgBox("You  must  make  a  payload  integration  location  decision. 

Click  Yes  if  the  payload  is  integrated  now,  in  the  integration  facility.  Click  No  if  the 
payload  is  integrated  later,  on  the  launch  pad.",  vbYesNo) 

210  If  msgResult  =  vbYes  Then 

211  po4opt5 . value  =  True 

212  Else 

213  po4opt6 .value  =  True 

214  End  If 

215  End  If 


216  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

217  Dim  m  As  Model 

218  Set  m  =  ThisDocument .Model 

219  Dim  popl8  As  Module 

220  Dim  popl8i  As  Long 

221  popl8i  =  m. Modules . Find (smFindTag,  "popl8") 

222  Set  popl8  =  m. Modules (popl8i) 

223  popl8 . Data ( "Expression" )  =  po4coml.Text 

224  popl8 . Data ( "Units" )  =  po4com2.Text 

225  Dim  poplOO  As  Module 

226  Dim  poplOOi  As  Long 

227  poplOOi  =  m. Modules . Find (smFindTag,  "poplOO") 

228  Set  poplOO  =  m. Modules (poplOOi) 

229  poplOO . Data ( "Expression" )  =  po4com3.Text 
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poplOO . Data ("Units" )  =  po4com4 . Text 

Dim  popl9  As  Module 
Dim  popl9i  As  Long 

popl9i  =  m. Modules . Find (smFindTag,  "popl9") 
Set  popl9  =  m. Modules (popl9i) 
popl 9 . Data ( "Expression" )  =  po4com5.Text 
popl9 . Data ("Units" )  =  po4com6 . Text 

Dim  pop20  As  Module 
Dim  pop20i  As  Long 

pop20i  =  m. Modules . Find (smFindTag,  "pop20") 
Set  pop20  =  m. Modules (pop20i) 
pop20 . Data ( "Expression" )  =  po4com7.Text 
pop20 . Data ("Units" )  =  po4com8.Text 

Dim  pop21  As  Module 
Dim  pop21i  As  Long 

pop21i  =  m. Modules . Find (smFindTag,  "pop21") 
Set  pop21  =  m. Modules (pop21i) 
pop21 . Data ( "Expression" )  =  po4com9.Text 
pop21 . Data ( "Units" )  =  po4coml0 . Text 

Dim  pop22  As  Module 
Dim  pop22i  As  Long 

pop22i  =  m. Modules . Find (smFindTag,  "pop22") 
Set  pop22  =  m. Modules (pop22i) 
pop22 . Data ( "Expression" )  =  po4coml 1 . Text 
pop22 . Data ( "Units" )  =  po4coml2 . Text 

Dim  pop23  As  Module 
Dim  pop23i  As  Long 

pop23i  =  m. Modules . Find (smFindTag,  "pop23") 
Set  pop23  =  m. Modules (pop23i) 
pop23 . Data ("Expression" )  =  po4coml3 . Text 
pop23 . Data ( "Units" )  =  po4coml4 . Text 

Dim  pop24  As  Module 
Dim  pop24i  As  Long 

pop24i  =  m. Modules . Find (smFindTag,  "pop24") 
Set  pop24  =  m. Modules (pop24i) 
pop24 . Data ( "Expression" )  =  po4com25 . Text 
pop24 . Data ( "Units" )  =  po4com2 6 . Text 

Dim  pop25  As  Module 
Dim  pop25i  As  Long 

pop25i  =  m. Modules . Find (smFindTag,  "pop25") 
Set  pop25  =  m. Modules (pop25i) 
pop25 . Data ( "Expression" )  =  po4com27 . Text 
pop25 . Data ("Units" )  =  po4com2 8 . Text 

Dim  pop26  As  Module 
Dim  pop26i  As  Long 

pop26i  =  m. Modules . Find (smFindTag,  "pop26") 
Set  pop26  =  m. Modules (pop26i) 
pop2 6 . Data ( "Expression" )  =  po4com29 . Text 
pop26 . Data ( "Units" )  =  po4com30 . Text 

Dim  pop27  As  Module 
Dim  pop27i  As  Long 

pop27i  =  m. Modules . Find (smFindTag,  "pop27") 
Set  pop27  =  m. Modules (pop27i) 
pop27 . Data ( "Expression" )  =  po4com31 . Text 
pop27 . Data ( "Units" )  =  po4com32 . Text 

Dim  pop28  As  Module 
Dim  pop28i  As  Long 

pop28i  =  m. Modules . Find (smFindTag,  "pop28") 
Set  pop28  =  m. Modules (pop28i) 
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pop2 8 . Data ( "Expression" )  =  po4com33 . Text 
pop28 . Data { "Units" )  =  po4com34 . Text 

Dim  pop29  As  Module 
Dim  pop29i  As  Long 

pop29i  =  m. Modules . Find (smFindTag,  "pop29") 

Set  pop29  =  m. Modules (pop29i) 

If  po4frm3 .Visible  =  True  Then 

pop2 9 . Data ( "Expression" )  =  po4coml5 . Text 
pop29 . Data ( "Units" )  =  po4coml 6 . Text 
Else 

pop2 9 . Data ( "Expression" )  =  po4com35 . Text 
pop29 . Data ( "Units" )  =  po4com36 . Text 
End  If 

Dim  pop30  As  Module 
Dim  pop30i  As  Long 

pop30i  =  m . Modules . Find ( smFindTag,  "pop30") 

Set  pop30  =  m. Modules (pop30i) 

If  po4frm3 .Visible  =  True  Then 

pop30 . Data ( "Expression" )  =  po4coml7 . Text 
pop30 . Data ( "Units" )  =  po4coml 8 . Text 
Else 

pop30 . Data ( "Expression" )  =  po4com37 . Text 
pop30 . Data ( "Units" )  =  po4com38 . Text 
End  If 

Dim  pop31  As  Module 
Dim  pop31i  As  Long 

pop31i  =  m . Modules . Find ( smFindTag,  "pop31") 

Set  pop31  =  m. Modules (pop31i) 

If  po4frm3 .Visible  =  True  Then 

pop31 . Data ( "Expression" )  =  po4coml9 . Text 
pop31 . Data ( "Units" )  =  po4com20 . Text 
Else 

pop31 . Data ("Expression" )  =  po4com39 . Text 
pop31 . Data ( "Units" )  =  po4com40 . Text 
End  If 

Dim  pop32  As  Module 
Dim  pop32i  As  Long 

pop32i  =  m. Modules . Find (smFindTag,  "pop32") 

Set  pop32  =  m. Modules (pop32i) 

If  po4frm3 .Visible  =  True  Then 

pop32 . Data ( "Expression" )  =  po4com21 . Text 
pop32 . Data ( "Units" )  =  po4com22 . Text 
Else 

pop32 . Data ( "Expression" )  =  po4com4 1 . Text 
pop32 . Data ( "Units" )  =  po4com42 . Text 
End  If 

Dim  pop33  As  Module 
Dim  pop33i  As  Long 

pop33i  =  m. Modules . Find (smFindTag,  "pop33") 

Set  pop33  =  m. Modules (pop33i) 

If  po4frm3 .Visible  =  True  Then 

pop33 . Data ( "Expression" )  =  po4com23 . Text 
pop33 . Data ( "Units" )  =  po4com24 . Text 
Else 

pop31 . Data ( "Expression" )  =  po4com43 . Text 
pop31 . Data ( "Units" )  =  po4com44 . Text 

End  If 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 
Dim  pov4  As  Module 
Dim  pov4i  As  Long 

pov4i  =  m. Modules . Find (smFindTag,  "pov4") 


196 


350  Set  pov4  =  m. Modules (pov4i) 

351  If  po4opt2 . value  =  True  Then 

352  pov4 . Data (" Initial  Value")  =  "1 

353  Else 

354  pov4 . Data (" Initial  Value")  =  "0 

355  End  If 
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Dim  pov5  As  Module 
Dim  pov5i  As  Long 

pov5i  =  m. Modules . Find (smFindTag,  "pov5") 

Set  pov5  =  m. Modules (pov5i) 

If  po4opt3 . value  =  True  And  po4frm2 .Visible  =  True  Then 
pov5 . Data (" Initial  Value")  =  "1" 

Elself  po4opt5 . value  =  True  And  po4frm5 .Visible  =  True  Then 
pov5 . Data (" Initial  Value")  =  "1" 

Else 

pov5 . Data ( "Initial  Value")  =  "0" 

End  If 


367  Me. Hide 

368  Hierarchy . Show 

369  End  Sub 

370  Private  Sub  Labell_Click ( ) 

371  End  Sub 

372  Private  Sub  Labelll_Click ( ) 

373  End  Sub 

374  Private  Sub  Labell2_Click ( ) 

375  End  Sub 


376  Private  Sub  Labell5_Click ( ) 

377  End  Sub 


378  Private  Sub  Label31_Click ( ) 

379  End  Sub 


380  Private  Sub  OptionButtonl_Click ( ) 

381  End  Sub 


382  Private  Sub  OptionButton2_Click ( ) 

383  End  Sub 


384  Private  Sub  OptionButton4_Click ( ) 

385  End  Sub 


386  Private  Sub  OptionButton6_Click ( ) 

387  End  Sub 

388  Private  Sub  po4optl_Click ( ) 

389  po4frm4 .Visible  =  True 

po4frm5 .Visible  =  True 

391  po4frm6 .Visible  =  True 

392  po4frml .Visible  =  False 

po4frm2 .Visible  =  False 

394  po4frm3 .Visible  =  False 

395  po6erect . po6frm2 . Visible  =  True 
po6erect . po6frml . Visible  =  False 
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397  End  Sub 


398  Private  Sub  po4opt2_Click ( ) 
po4frm4 .Visible  =  False 

400  po4frm5 .Visible  =  False 

401  po4frm6 .Visible  =  False 

402  po4frml .Visible  =  True 

403  po4frm2 .Visible  =  True 

404  po4frm3 .Visible  =  True 

405  po6erect . po6frm2 .Visible  =  False 

406  po6erect . po6frml .Visible  =  True 

407  End  Sub 

408  Private  Sub  po4opt3_Click ( ) 

409  po4frm3 .Visible  =  True 

410  po6erect . po6frm3 .Visible  =  False 

411  End  Sub 

412  Private  Sub  po4opt4_Click ( ) 

413  po4frm3 .Visible  =  False 

414  po6erect . po6frm3 . Visible  =  True 

415  End  Sub 

416  Private  Sub  po4opt5_Click ( ) 

417  po4frm6 .Visible  =  True 

418  po6erect . po6frm3 .Visible  =  False 

419  End  Sub 

420  Private  Sub  po4opt6_Click ( ) 

421  po4frm6 .Visible  =  False 

422  po6erect . po6frm3 .Visible  =  True 


423  End  Sub 

424  Private  Sub  ToggleButtonl_Click ( ) 

425  End  Sub 

426  Private  Sub  UserForm_Click ( ) 

427  End  Sub 


428  Private  Sub  UserForm_Initialize ( ) 

429  Dim  m  As  Model 

430  Set  m  =  ThisDocument .Model 


431  'Code  below  populates  large  combo  boxes  for  ON-02  thru  ON-08 

432  Dim  popl8  As  Module 

433  Dim  popl8i  As  Long 

434  Dim  popl8v  As  String 

435  popl8i  =  m. Modules . Find (smFindTag,  "popl8" ) 

436  Set  popl8  =  m. Modules (popl8i) 

437  popl8v  =  popl8 . Data ( "Expression" ) 


438 

po4of fnopreint .po4coml .value  = 

popl8^ 

439 

po4of fnopreint . po4coml . Addltem 

"TRIA 

(  54, 

cr> 

o 

CO 

4^ 

O 

440 

po4 of fnopreint . po4coml .Addltem 

"TRIA 

(  Min, 

Mode,  Max  )", 

441 

po4 of fnopreint . po4coml .Addltem 

"NORM 

(  Mean 

,  StdDev  )",  2 

442 

po4 of fnopreint . po4coml .Addltem 

"EXPO 

(  Mean 

)",  3 

443 

po 4 of fnopreint . po4coml .Addltem 

"UNIF 

(  Min, 

Max  )",  4 

444 

Dim  poplOO  As  Module 

445 

Dim  poplOOi  As  Long 

446 

Dim  poplOOv  As  String 

447 

poplOOi  =  m. Modules . Find (smFindTag,  " 

'poplOO 

") 

448 

Set  poplOO  =  m. Modules (poplOOi) 
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470 

471 

472 

473 

474 

475 

476 

477 
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480 

481 

482 

483 

484 

485 
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488 

489 

490 
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498 

499 

500 

501 

502 
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504 

505 
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poplOOv  =  poplOO . Data ( "Expression" ) 


po4off nopreint . po4com3 . value  =  poplOOv 

po4of fnopreint . po4com3 . Addltem  "TRIA  (  108,  120,  168  )",  0 
po4of fnopreint . po4com3 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4com3 . Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4com3 . Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4com3 . Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  popl9  As  Module 
Dim  popl9i  As  Long 
Dim  popl9v  As  String 

popl9i  =  m. Modules . Find (smFindTag,  "popl9") 

Set  popl9  =  m. Modules (popl9i) 
popl9v  =  popl9 . Data ( "Expression" ) 

po4of fnopreint . po4com5 .value  =  popl9v 

po4of fnopreint . po4com5 .Addltem  "TRIA  (  27,  30,  42  )",  0 
po4of fnopreint . po4com5 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4com5 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4com5 . Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4com5 . Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop20  As  Module 
Dim  pop20i  As  Long 
Dim  pop20v  As  String 

pop20i  =  m. Modules . Find (smFindTag,  "pop20") 

Set  pop20  =  m. Modules (pop20i) 
pop20v  =  pop20 . Data ( "Expression" ) 

po4of fnopreint . po4com7 . value  =  pop20v 

po4of fnopreint . po4com7 .Addltem  "TRIA  (  27,  30,  42  )",  0 
po4of fnopreint . po4com7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4com7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4com7 .Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4com7 .Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop21  As  Module 
Dim  pop21i  As  Long 
Dim  pop21v  As  String 

pop21i  =  m. Modules . Find (smFindTag,  "pop21") 

Set  pop21  =  m. Modules (pop21i) 
pop21v  =  pop21 . Data ( "Expression" ) 

po4of fnopreint . po4com9 . value  =  pop21v 

po4of fnopreint . po4com9 . Addltem  "TRIA  (  36,  40,  56  )",  0 
po4of fnopreint . po4com9 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4com9 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4com9 .Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4com9 .Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop22  As  Module 
Dim  pop22i  As  Long 
Dim  pop22v  As  String 

pop22i  =  m. Modules . Find (smFindTag,  "pop22") 

Set  pop22  =  m. Modules (pop22i) 
pop22v  =  pop22 . Data ( "Expression" ) 

po4of fnopreint . po4coml 1 . value  =  pop22v 

po4of fnopreint . po4coml 1 .Addltem  "TRIA  (  36,  40,  56  )",  0 
po4of fnopreint . po4coml 1 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4coml 1 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4coml 1 .Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4coml 1 .Addltem  "UNIF  (  Min,  Max  )",  4 

Dim  pop23  As  Module 
Dim  pop23i  As  Long 
Dim  pop23v  As  String 

pop23i  =  m. Modules . Find (smFindTag,  "pop23") 
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Set  pop23  =  m. Modules (pop23i) 
pop23v  =  pop23 . Data ( "Expression" ) 


po4of fnopreint . po4coml3 . value  =  pop23v 
po4of fnopreint . po4coml3 . Addltem  "TRIA  ( 
po4of fnopreint . po4coml3 .Addltem  "TRIA  ( 
po4of fnopreint . po4coml3 .Addltem  "NORM  ( 
po4of fnopreint . po4coml3 .Addltem  "EXPO  ( 
po4of fnopreint . po4com!3 .Addltem  "UNIF  ( 


27,  30,  42  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


'Code  below  populates  large  combo  boxes  for  ON-17  thru  ON-21 
Dim  pop24  As  Module 
Dim  pop24i  As  Long 
Dim  pop24v  As  String 

pop24i  =  m. Modules . Find (smFindTag,  "pop24") 

Set  pop24  =  m. Modules (pop24i) 
pop24v  =  pop24 . Data ( "Expression" ) 


po4of fnopreint . po4com25 . value  = 
po4of fnopreint . po4com25 .Addltem 
po4 of fnopreint . po4com25 . Addltem 
po4 of fnopreint . po4com25 .Addltem 
po4 of fnopreint . po4com25 .Addltem 
po4 of fnopreint . po4com25 .Addltem 


pop24v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop25  As  Module 
Dim  pop25i  As  Long 
Dim  pop25v  As  String 

pop25i  =  m. Modules . Find (smFindTag,  "pop25") 
Set  pop25  =  m. Modules (pop25i) 
pop25v  =  pop25 . Data ( "Expression" ) 


po4of fnopreint . po4com27 . value  = 
po4of fnopreint . po4com27 .Addltem 
po4of fnopreint . po4com27 .Addltem 
po4of fnopreint . po4com27 .Addltem 
po4of fnopreint . po4com27 .Addltem 
po4 of fnopreint . po4com27 .Addltem 


pop25v 

"TRIA  ( 

54, 

60,  84  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop26  As  Module 
Dim  pop26i  As  Long 
Dim  pop26v  As  String 

pop26i  =  m. Modules . Find (smFindTag,  "pop26") 
Set  pop26  =  m. Modules (pop26i) 
pop26v  =  pop2 6 . Data ( "Expression" ) 


po4of fnopreint . po4com2 9 . value  = 
po4 of fnopreint . po4com2  9 .Addltem 
po4 of fnopreint . po4com2  9 .Addltem 
po4of fnopreint . po4com2  9 .Addltem 
po4of fnopreint . po4com2  9 .Addltem 
po4of fnopreint . po4com2  9 .Addltem 


pop26v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop27  As  Module 
Dim  pop27i  As  Long 
Dim  pop27v  As  String 

pop27i  =  m. Modules . Find (smFindTag,  "pop27") 
Set  pop27  =  m. Modules (pop27i) 
pop27v  =  pop27 . Data ("Expression" ) 


po4of fnopreint . po4com31 . value  = 
po4of fnopreint . po4com31 .Addltem 
po4 of fnopreint . po4com31 .Addltem 
po4 of fnopreint . po4com31 .Addltem 
po4 of fnopreint . po4com31 .Addltem 
po4 of fnopreint . po4com31 .Addltem 


pop27v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  )",  1 
"NORM  (  Mean,  StdDev  )",  2 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


Dim  pop28  As  Module 
Dim  pop28i  As  Long 
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Dim  pop28v  As  String 

pop28i  =  m. Modules . Find (smFindTag,  "pop28") 
Set  pop28  =  m. Modules (pop28i) 
pop28v  =  pop28 . Data ( "Expression" ) 


po4of fnopreint . po4com33 . value  =  pop28v 
po4of fnopreint . po4com33 . Addltem  "TRIA  ( 
po4of fnopreint . po4com33 .Addltem  "TRIA  ( 
po4of fnopreint . po4com33 .Addltem  "NORM  ( 
po4of fnopreint . po4com33 .Addltem  "EXPO  ( 
po4of fnopreint . po4com33 .Addltem  "UNIF  ( 


27,  30,  42  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


'Code  below  populates  small  combo  boxes  for  ON-02  thru  ON-08 
Dim  popl8u  As  Module 
Dim  popl8ui  As  Long 
Dim  popl8uv  As  String 

popl8ui  =  m. Modules . Find (smFindTag,  "popl8") 

Set  popl8u  =  m. Modules (popl8ui) 
popl8uv  =  popl8u . Data ("Units" ) 


po4of fnopreint . po4com2 . value  =  popl8uv 
po4of fnopreint . po4com2 . Addltem  "Seconds",  0 
po4of fnopreint . po4com2 . Addltem  "Minutes",  1 
po4of fnopreint . po4com2 . Addltem  "Hours",  2 
po4of fnopreint . po4com2 . Addltem  "Days",  3 


Dim  poplOOu  As  Module 
Dim  poplOOui  As  Long 
Dim  poplOOuv  As  String 

poplOOui  =  m. Modules . Find (smFindTag,  "poplOO") 
Set  poplOOu  =  m. Modules (poplOOui) 
poplOOuv  =  poplOOu . Data ( "Units" ) 

po4of fnopreint . po4com4 . value  =  poplOOuv 
po4of fnopreint . po4com4 .Addltem  "Seconds",  0 
po4of fnopreint . po4com4 .Addltem  "Minutes",  1 
po4of fnopreint . po4com4 .Addltem  "Hours",  2 
po4of fnopreint . po4com4 .Addltem  "Days",  3 


Dim  popl9u  As  Module 
Dim  popl9ui  As  Long 
Dim  popl9uv  As  String 

popl9ui  =  m. Modules . Find (smFindTag,  "popl9") 
Set  popl9u  =  m. Modules (popl9ui) 
popl9uv  =  popl9u . Data ( "Units" ) 

po4of fnopreint . po4com6 . value  =  popl9uv 
po4of fnopreint . po4com6 . Addltem  "Seconds",  0 
po4of fnopreint . po4com6 .Addltem  "Minutes",  1 
po4of fnopreint . po4com6 .Addltem  "Hours",  2 
po4of fnopreint . po4com6 .Addltem  "Days",  3 


Dim  pop20u  As  Module 
Dim  pop20ui  As  Long 
Dim  pop20uv  As  String 

pop20ui  =  m. Modules . Find (smFindTag,  "pop20") 
Set  pop20u  =  m. Modules (pop20ui) 
pop20uv  =  pop20u . Data ("Units" ) 


po4of fnopreint . po4com8 . value  =  pop20uv 
po4of fnopreint . po4com8 . Addltem  "Seconds",  0 
po4of fnopreint . po4com8 . Addltem  "Minutes",  1 
po4of fnopreint . po4com8 . Addltem  "Hours",  2 
po4of fnopreint . po4com8 . Addltem  "Days",  3 

Dim  pop21u  As  Module 
Dim  pop21ui  As  Long 
Dim  pop21uv  As  String 

pop21ui  =  m. Modules . Find (smFindTag,  "pop21") 
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Set  pop21u  =  m. Modules (pop21ui) 
pop21uv  =  pop21u . Data ( "Units" ) 


po4of fnopreint . po4coml0 . value  = 
po4of fnopreint . po4coml0 . Addltem 
po4 of fnopreint . po4coml0 .Addltem 
po4 of fnopreint . po4coml0 .Addltem 
po4of fnopreint . po4com!0 .Addltem 


pop21uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop22u  As  Module 
Dim  pop22ui  As  Long 
Dim  pop22uv  As  String 

pop22ui  =  m. Modules . Find (smFindTag,  "pop22") 
Set  pop22u  =  m. Modules (pop22ui) 
pop22uv  =  pop22u . Data ( "Units" ) 


po4of fnopreint . po4coml2 . value  = 
po4of fnopreint . po4coml2 .Addltem 
po4of fnopreint . po4coml2 .Addltem 
po4of fnopreint . po4coml2 .Addltem 
po4of fnopreint . po4com!2 .Addltem 


pop22uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop23u  As  Module 
Dim  pop23ui  As  Long 
Dim  pop23uv  As  String 

pop23ui  =  m. Modules . Find (smFindTag,  "pop23") 
Set  pop23u  =  m. Modules (pop23ui) 
pop23uv  =  pop23u . Data ( "Units" ) 


po4of fnopreint . po4coml4 . value  =  pop23uv 
po4of fnopreint . po4coml4 .Addltem  "Seconds",  0 
po4of fnopreint . po4coml4 .Addltem  "Minutes",  1 
po4of fnopreint . po4coml4 .Addltem  "Hours",  2 
po4of fnopreint . po4com!4 .Addltem  "Days",  3 


'Code  below  populates  small  combo  boxes  for  ON-17  thru  ON-21 
Dim  pop24u  As  Module 
Dim  pop24ui  As  Long 
Dim  pop24uv  As  String 

pop24ui  =  m. Modules . Find (smFindTag,  "pop24") 

Set  pop24u  =  m. Modules (pop24ui) 
pop24uv  =  pop24u . Data ( "Units" ) 


po4of fnopreint . po4com2 6 . value  = 
po4of fnopreint . po4com2  6 .Addltem 
po4 of fnopreint . po4com2  6 .Addltem 
po4 of fnopreint . po4com2  6 .Addltem 
po4 of fnopreint . po4com2  6 .Addltem 


pop24uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop25u  As  Module 
Dim  pop25ui  As  Long 
Dim  pop25uv  As  String 

pop25ui  =  m. Modules . Find (smFindTag,  "pop25") 
Set  pop25u  =  m. Modules (pop25ui) 
pop25uv  =  pop25u . Data ("Units" ) 


po4of fnopreint . po4com28 . value  = 
po4of fnopreint . po4com2  8 .Addltem 
po4of fnopreint . po4com2  8 .Addltem 
po4of fnopreint . po4com2  8 .Addltem 
po4of fnopreint . po4com2  8 .Addltem 


pop25uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop26u  As  Module 
Dim  pop26ui  As  Long 
Dim  pop26uv  As  String 

pop26ui  =  m. Modules . Find (smFindTag,  "pop26") 
Set  pop26u  =  m. Modules (pop26ui) 
pop26uv  =  pop26u . Data ( "Units" ) 
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po4off nopreint . po4com30 . value  =  pop26uv 
po4of f nopreint . po4com30 . Addltem  "Seconds",  0 
po4off nopreint . po4com30 .Addltem  "Minutes",  1 
po4of fnopreint . po4com30 .Addltem  "Hours",  2 
po4of fnopreint . po4com30 .Addltem  "Days",  3 


Dim  pop27u  As  Module 
Dim  pop27ui  As  Long 
Dim  pop27uv  As  String 

pop27ui  =  m. Modules . Find (smFindTag,  "pop27") 
Set  pop27u  =  m. Modules (pop27ui) 
pop27uv  =  pop27u . Data ( "Units" ) 


po4of fnopreint . po4com32 . value  = 
po4 of fnopreint . po4com32 .Addltem 
po4 of fnopreint . po4com32 .Addltem 
po4of fnopreint . po4com32 .Addltem 
po4of fnopreint . po4com32 .Addltem 


pop27uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


Dim  pop28u  As  Module 
Dim  pop28ui  As  Long 
Dim  pop28uv  As  String 

pop28ui  =  m. Modules . Find ( smFindTag,  "pop28") 
Set  pop28u  =  m. Modules (pop28ui) 
pop28uv  =  pop28u . Data ( "Units" ) 


po4of fnopreint . po4com34 . value  =  pop28uv 
po4of fnopreint . po4com34 .Addltem  "Seconds",  0 
po4of fnopreint . po4com34 .Addltem  "Minutes",  1 
po4of fnopreint . po4com34 .Addltem  "Hours",  2 
po4of fnopreint . po4com34 .Addltem  "Days",  3 


'Code  below  populates  large  combo  boxes  for  ON-12  thru  ON-16  and  ON-25  thru  ON- 


Dim  pop29  As  Module 

Dim  pop29i  As  Long 

Dim  pop29v  As  String 

pop29i  =  m. Modules  .  Find  (smFindT. 

Set  pop29  =  m. Modules (pop29i) 

pop29v  =  pop2 9 . Data ( "Expression 

po4of fnopreint . po4coml5 . value  = 
po4of fnopreint . po4coml5 .Addltem 
po4of fnopreint . po4coml5 .Addltem 
po4of fnopreint . po4coml5 .Addltem 
po4 of fnopreint . po4coml5 .Addltem 
po4 of fnopreint . po4coml5 .Addltem 

po4of fnopreint . po4com35 . value  = 
po4of fnopreint . po4com35 .Addltem 
po4of fnopreint . po4com35 .Addltem 
po4of fnopreint . po4com35 .Addltem 
po4of fnopreint . po4com35 .Addltem 
po4 of fnopreint . po4com35 .Addltem 


,  "pop29") 

) 


pop29v 

"TRIA  ( 

27, 

30 ,  42 

>  ■ 

'  , 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

'  , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  1 

4 

pop29v 

"TRIA  ( 

27, 

30,  42 

)  ' 

' , 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

) ' 

' , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  1 

'  , 

4 

Dim  pop30  As  Module 
Dim  pop30i  As  Long 
Dim  pop30v  As  String 

pop30i  =  m. Modules . Find (smFindTag,  "pop30") 

Set  pop30  =  m. Modules (pop30i) 
pop30v  =  pop30 . Data ( "Expression" ) 

po4of fnopreint . po4coml7 . value  =  pop30v 

po4of fnopreint . po4coml7 .Addltem  "TRIA  (  81,  90,  126  )",  0 
po4of fnopreint . po4coml7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po4of fnopreint . po4coml7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po4of fnopreint . po4coml7 .Addltem  "EXPO  (  Mean  )",  3 
po4of fnopreint . po4com!7 .Addltem  "UNIF  (  Min,  Max  )",  4 
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764 
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766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 


po4off nopreint . po4com37 . value  = 
po4of f nopreint . po4com37 .Add Item 
po4off nopreint . po4com37 .Add Item 
po4 of f nopreint . po4com37 . Addltem 
po4 of f nopreint . po4com37 .Addltem 
po4 of f nopreint . po4com37 .Addltem 


pop30v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop31  As  Module 
Dim  pop31i  As  Long 
Dim  pop31v  As  String 

pop31i  =  m. Modules . Find (smFindTag,  "pop31") 
Set  pop31  =  m. Modules (pop31i) 
pop31v  =  pop31 . Data ( "Expression" ) 


po4of fnopreint . po4coml 9 . value  = 
po4 of f nopreint . po4coml 9 .Addltem 
po4of fnopreint . po4coml 9 .Addltem 
po4of fnopreint . po4coml 9 .Addltem 
po4of fnopreint . po4coml 9 .Addltem 
po4of fnopreint . po4coml 9 .Addltem 

po4of fnopreint . po4com39 . value  = 
po4 of fnopreint . po4com39 .Addltem 
po4 of fnopreint . po4com39 .Addltem 
po4of fnopreint . po4com39 .Addltem 
po4of fnopreint . po4com39 .Addltem 
po4of fnopreint . po4com39 .Addltem 


pop31v 
"TRIA  ( 

27, 

30,  42 

> ' 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

'  , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ? 

4 

pop31v 
"TRIA  ( 

18, 

20,  28 

)  ’ 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

' , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ' 

4 

Dim  pop32  As  Module 
Dim  pop32i  As  Long 
Dim  pop32v  As  String 

pop32i  =  m. Modules . Find (smFindTag,  "pop32") 
Set  pop32  =  m. Modules (pop32i) 
pop32v  =  pop32 . Data ( "Expression" ) 


po4of fnopreint . po4com2 1 . value  = 
po4of fnopreint . po4com2 1 .Addltem 
po4 of fnopreint . po4com2 1 .Addltem 
po4 of fnopreint . po4com2 1 .Addltem 
po4 of fnopreint . po4com2 1 .Addltem 
po4 of fnopreint . po4com2 1 .Addltem 

po4of fnopreint . po4com4 1 . value  = 
po4of fnopreint . po4com4 1 .Addltem 
po4of fnopreint . po4com4 1 .Addltem 
po4 of fnopreint . po4com4 1 .Addltem 
po4 of fnopreint . po4com4 1 .Addltem 
po4 of fnopreint . po4com4 1 .Addltem 


pop32v 
"TRIA  ( 

27, 

30,  42 

>  ■ 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ’ 

’  , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ' 

'' 

4 

pop32v 
"TRIA  ( 

18, 

20,  28 

)  ’ 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  1 

' , 

"NORM  ( 

Mean 

,  StdDev 

)  ’ 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  1 

’  , 

4 

Dim  pop33  As  Module 
Dim  pop33i  As  Long 
Dim  pop33v  As  String 

pop33i  =  m. Modules . Find (smFindTag,  "pop33") 
Set  pop33  =  m. Modules (pop33i) 
pop33v  =  pop33 . Data ( "Expression" ) 


po4of fnopreint . po4com23 . value  = 
po4of fnopreint . po4com23 .Addltem 
po4of fnopreint . po4com23 . Addltem 
po4of fnopreint . po4com23 .Addltem 
po4of fnopreint . po4com23 .Addltem 
po4of fnopreint . po4com23 .Addltem 

po4of fnopreint . po4com43 . value  = 
po4 of fnopreint . po4com43 .Addltem 
po4 of fnopreint . po4com43 .Addltem 
po4of fnopreint . po4com43 .Addltem 
po4of fnopreint . po4com43 .Addltem 
po4of fnopreint . po4com43 .Addltem 


pop33v 
"TRIA  ( 

27, 

30,  42 

>  ■ 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

'  , 

"NORM  ( 

Mean 

,  StdDev 

) ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ? 

4 

pop33v 
"TRIA  ( 

27, 

30,  42 

)  ' 

0 

"TRIA  ( 

Min, 

Mode, 

Max 

)  ' 

' , 

"NORM  ( 

Mean 

,  StdDev 

)  ' 

1 , 

2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  )  ? 

4 
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802  'Code  below  populates  small  combo  boxes  for  ON-12  thru  ON-16  and  ON-25  thru  ON- 

i 

803  Dim  pop29u  As  Module 

804  Dim  pop29ui  As  Long 

805  Dim  pop29uv  As  String 

806  pop29ui  =  m. Modules . Find (smFindTag,  "pop29") 

807  Set  pop29u  =  m. Modules (pop29ui) 

808  pop29uv  =  pop29u . Data ( "Units" ) 


809 

810 
811 
812 
813 


po4of f nopreint . po4coml 6 . value  = 
po4of fnopreint . po4coml 6 . Addltem 
po4 of f nopreint . po4coml 6 .Addltem 
po4 of fnopreint . po4coml 6 .Addltem 
po4 of fnopreint . po4coml 6 .Addltem 


pop29uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


814 

815 

816 

817 

818 


po4of fnopreint . po4com36 . value  = 
po4of fnopreint . po4com36 .Addltem 
po4of fnopreint . po4com36 .Addltem 
po4of fnopreint . po4com36 .Addltem 
po4 of fnopreint . po4com36 .Addltem 


pop29uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


819  Dim  pop30u  As  Module 

820  Dim  pop30ui  As  Long 

821  Dim  pop30uv  As  String 

822  pop30ui  =  m. Modules . Find (smFindTag,  "pop30") 

823  Set  pop30u  =  m. Modules (pop30ui) 

824  pop30uv  =  pop30u . Data ( "Units" ) 


825 

826 

827 

828 

829 

830 

831 

832 

833 

834 


po4 of fnopreint . po4coml8 
po4 of fnopreint . po4coml8 
po4 of fnopreint . po4coml8 
po4of fnopreint . po4coml 8 
po4of fnopreint . po4coml 8 

po4of fnopreint . po4com38 
po4of fnopreint . po4com38 
po4 of fnopreint . po4com38 
po4 of fnopreint . po4com38 
po4 of fnopreint . po4com38 


value  = 

pop30uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

value  = 

pop30uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

835  Dim  pop31u  As  Module 

836  Dim  pop31ui  As  Long 

837  Dim  pop31uv  As  String 

838  pop31ui  =  m. Modules . Find (smFindTag,  "pop31") 
Set  pop31u  =  m. Modules (pop31ui) 

840  pop31uv  =  pop31u . Data ( "Units" ) 


841 

842 

843 

844 

845 

846 

847 

848 

849 

850 


po4 of fnopreint . po4com20 
po4of fnopreint . po4com20 
po4of fnopreint . po4com20 
po4of fnopreint . po4com20 
po4of fnopreint . po4com20 

po4 of fnopreint . po4com40 
po4 of fnopreint . po4com40 
po4 of fnopreint . po4com40 
po4of fnopreint . po4com40 
po4of fnopreint . po4com40 


value  = 

pop31uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

value  = 

pop31uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

851  Dim  pop32u  As  Module 

852  Dim  pop32ui  As  Long 

853  Dim  pop32uv  As  String 

854  pop32ui  =  m. Modules . Find (smFindTag,  npop32") 

855  Set  pop32u  =  m. Modules (pop32ui) 

856  pop32uv  =  pop32u . Data ( "Units" ) 


857  po4of fnopreint . po4com22 . value  =  pop32uv 

858  po4of fnopreint .po4com22 .Addltem  "Seconds",  0 
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859  po4of fnopreint .po4com22 . Addltem  "Minutes",  1 

po4of fnopreint .po4com22 . Addltem  "Hours",  2 
861  po4of fnopreint .po4com22 .Addltem  "Days",  3 


862 

863 

864 

865 

866 


po4of fnopreint . po4com42 . value  = 
po 4 of fnopreint . po4com42 .Addltem 
po4 of fnopreint . po4com42 .Addltem 
po4of fnopreint .po4com42 .Addltem 
po4of fnopreint .po4com42 .Addltem 


pop32uv 
"Seconds" , 
"Minutes" , 
"Hours",  2 
"Days",  3 


0 

1 


867  Dim  pop33u  As  Module 

868  Dim  pop33ui  As  Long 

869  Dim  pop33uv  As  String 

pop33ui  =  m. Modules . Find (smFindTag,  "pop33") 

871  Set  pop33u  =  m. Modules (pop33ui) 

872  pop33uv  =  pop33u . Data ( "Units" ) 


873 

874 

875 

876 

877 

878 

879 

880 
881 
882 


po4 of fnopreint . po4com24 
po4 of fnopreint . po4com24 
po4 of fnopreint . po4com24 
po4 of fnopreint . po4com24 
po 4 of fnopreint . po4com24 

po 4 of fnopreint . po4com44 
po4 of fnopreint . po4com44 
po4 of fnopreint . po4com44 
po4 of fnopreint . po4com44 
po4 of fnopreint . po4com44 


value  = 

pop33uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

value  = 

pop33uv 

Addltem 

"Seconds" , 

0 

Addltem 

"Minutes" , 

1 

Addltem 

"Hours",  2 

Addltem 

"Days",  3 

883  End  Sub 

Project/po5off hyper 


1  Private  Sub  ComboBoxl_Change ( ) 

2  End  Sub 

3  Private  Sub  ComboBoxll_Change ( ) 

4  End  Sub 

5  Private  Sub  CommandButton6_Click ( ) 

6  Me. Hide 

7  If  polprelim.poloptl .value  =  True  Then 

8  po3of fpreint . Show 

9  Else 

10  po4of fnopreint . Show 

11  End  If 

12  End  Sub 

13  Private  Sub  CommandButton7_Click ( ) 

14  Hierarchy . done07 .Visible  =  True 

15  'Code  below  checks  if  any  option  button  sets  are  not  clicked ,  and  if  so,  forces 
the  user  to  make  a  decision 

16  Dim  msgResult  As  Integer 

17  If  (po5optl .value  =  False  And  po5opt2 . value  =  False)  Then 

18  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 

hypergolic  fuels  required?",  vbYesNo) 

19  If  msgResult  =  vbYes  Then 

20  po5optl . value  =  True 

21  Else 

22  po5opt2 . value  =  True 

23  End  If 

24  End  If 

If  (po5optl .value  =  True  And  po5opt3 .value  =  False  And  po5opt4 .value  =  False) 

Then 

26  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
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Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

27  If  msgResult  =  vbYes  Then 

28  po5opt3 .value  =  True 

29  Else 

30  po5opt4 .value  =  True 

31  End  If 

32  End  If 

33  If  (po5opt5 .value  =  False  And  po5opt6 .value  =  False)  Then 

34  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

35  If  msgResult  =  vbYes  Then 

36  po5opt5 .value  =  True 

37  Else 

38  po5opt6 .value  =  True 

39  End  If 

40  End  If 

41  If  (po5opt5 .value  =  True  And  po5opt7 .value  =  False  And  po5opt8 .value  =  False) 
Then 

42  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

43  If  msgResult  =  vbYes  Then 

44  po5opt7 . value  =  True 

45  Else 

46  po5opt8 .value  =  True 

47  End  If 

48  End  If 

49  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

50  Dim  m  As  Model 

51  Set  m  =  ThisDocument .Model 

52  Dim  pop34  As  Module 

53  Dim  pop34i  As  Long 

54  pop34i  =  m. Modules . Find (smFindTag,  "pop34") 

55  Set  pop34  =  m. Modules (pop34i) 

56  pop34 . Data  ("Expression" )  =  po5coml.Text 

57  pop34 . Data ( "Units" )  =  po5com2.Text 

58  Dim  pop71  As  Module 

59  Dim  pop71i  As  Long 

60  pop71i  =  m. Modules . Find (smFindTag,  "pop71") 

61  Set  pop71  =  m. Modules (pop71i) 

62  pop71 . Data ( "Expression" )  =  po5coml.Text 

63  pop71 . Data ( "Units" )  =  po5com2.Text 

64  Dim  pop35  As  Module 

65  Dim  pop35i  As  Long 

66  pop35i  =  m. Modules . Find (smFindTag,  "pop35") 

67  Set  pop35  =  m. Modules (pop35i) 

68  pop35 . Data ( "Expression" )  =  po5com3.Text 

69  pop35 . Data ( "Units" )  =  po5com4.Text 

70  Dim  pop77  As  Module 

71  Dim  pop77i  As  Long 

72  pop77i  =  m. Modules . Find (smFindTag,  "pop77") 

73  Set  pop77  =  m. Modules (pop77i) 

74  pop77 . Data ( "Expression" )  =  po5com3.Text 

75  pop77 . Data ( "Units" )  =  po5com4.Text 

76  Dim  pop36  As  Module 

77  Dim  pop36i  As  Long 

78  pop36i  =  m. Modules . Find (smFindTag,  "pop36") 

79  Set  pop36  =  m. Modules (pop36i) 

80  pop36 . Data ( "Expression" )  =  po5com5.Text 

81  pop36 . Data ( "Units" )  =  po5com6.Text 
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82 

Dim  pop37  As  Module 

83 

Dim  pop37i  As  Long 

84 

pop37i  =  m. Modules . Find (smFindTag, 

"pop37" ) 

85 

Set  pop37  =  m. Modules (pop37i) 

86 

pop37 . Data ( "Expression" )  =  po5com7 . 

Text 

87 

pop37 . Data ( "Units" )  =  po5com8.Text 

88 

Dim  pop38  As  Module 

89 

Dim  pop38i  As  Long 

90 

pop38i  =  m. Modules . Find (smFindTag, 

"pop38") 

91 

Set  pop38  =  m. Modules (pop38i) 

92 

pop38 . Data ( "Expression" )  =  po5com9. 

Text 

93 

pop38 . Data ( "Units" )  =  po5coml0 . Text 

94 

'Code  below  takes  user's  option  button  decisions 

and 

translates  them  into 

ini tial 

values  for  the  variables  that  control 

’  the  corresponding 

decision 

modules 

95 

Dim  pov6  As  Module 

96 

Dim  pov6i  As  Long 

97 

pov6i  =  m. Modules . Find (smFindTag,  " 

pov6" ) 

98 

Set  pov6  =  m. Modules (pov6i) 

99 

If  po5opt2 . value  =  True  Then 

100 

pov6 . Data ( "Initial  Value")  =  "0" 

101 

Elself  po5opt3 . value  =  True  Then 

102 

pov6 . Data (" Initial  Value")  =  "1" 

103 

Else 

104 

pov6 . Data (" Initial  Value")  =  "2" 

105 

End  If 

106 

Dim  pov7  As  Module 

107 

Dim  pov7i  As  Long 

108 

pov7i  =  m. Modules . Find (smFindTag,  " 

pov7") 

109 

Set  pov7  =  m. Modules (pov7i) 

110 

If  po5opt6 .value  =  True  Then 

111 

pov7 . Data (" Initial  Value")  =  "0" 

112 

Elself  po5opt7 . value  =  True  Then 

113 

pov7 . Data (" Initial  Value")  =  "1" 

114 

Else 

115 

pov7 . Data (" Initial  Value")  =  "2" 

116 

End  If 

117 

'code  below  hides  the  current  form 

and  shows  the 

next 

form  in 

the  sequence 

118 

Me . Hide 

119 

po6erect . Show 

120 

End  Sub 

121 

Private  Sub  CommandButton9  Click () 

122 

Hierarchy . done07 .Visible  =  True 

123 

'Code  below  checks  if  any  option  button  sets  are 

not 

clicked. 

and  if  so,  forces 

the  user  to  make  a  decision 

124 

Dim  msgResult  As  Integer 

125  If  (po5optl .value  =  False  And  po5opt2 . value  =  False)  Then 

126  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  decision.  Are 
hypergolic  fuels  required?",  vbYesNo) 

127  If  msgResult  =  vbYes  Then 

128  po5optl . value  =  True 

129  Else 

130  po5opt2 .value  =  True 

131  End  If 

132  End  If 

133  If  (po5optl .value  =  True  And  po5opt3 .value  =  False  And  po5opt4 .value  =  False) 
Then 

134  msgResult  =  MsgBox("You  must  make  a  hypergolic  fuels  loading  decision.  Click 
Yes  if  hypergolics  are  loaded  now,  in  the  integration  facility.  Click  No  if  hypergolics 
are  loaded  later,  on  the  launch  pad.",  vbYesNo) 

135  If  msgResult  =  vbYes  Then 

136  po5opt3 .value  =  True 

137  Else 
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138  po5opt4 .value  =  True 

139  End  If 

140  End  If 

141  If  (po5opt5 . value  =  False  And  po5opt6 .value  =  False)  Then 

142  msgResult  =  MsgBox("You  must  make  an  ordnance  decision.  Is  ordnance 
required?",  vbYesNo) 

143  If  msgResult  =  vbYes  Then 

144  po5opt5 .value  =  True 

145  Else 

146  po5opt6 .value  =  True 

147  End  If 

148  End  If 

149  If  (po5opt5 . value  =  True  And  po5opt7 . value  =  False  And  po5opt8 . value  =  False) 
Then 

150  msgResult  =  MsgBox("You  must  make  an  ordnance  installation  location  decision. 
Click  Yes  if  ordnance  is  loaded  now,  in  the  integration  facility.  Click  No  if  ordnance 
is  loaded  later,  on  the  launch  pad.",  vbYesNo) 

151  If  msgResult  =  vbYes  Then 

152  po5opt7 .value  =  True 

153  Else 

154  po5opt8 .value  =  True 

155  End  If 

156  End  If 

157  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

158  Dim  m  As  Model 

159  Set  m  =  ThisDocument .Model 

160  Dim  pop34  As  Module 

161  Dim  pop34i  As  Long 

162  pop34i  =  m. Modules . Find (smFindTag,  "pop34") 

163  Set  pop34  =  m. Modules (pop34i) 

164  pop34 . Data ( "Expression" )  =  po5coml.Text 

165  pop34 . Data ( "Units" )  =  po5com2.Text 

166  Dim  pop71  As  Module 

167  Dim  pop71i  As  Long 

168  pop71i  =  m. Modules . Find (smFindTag,  "pop71") 

169  Set  pop71  =  m. Modules (pop71i) 

170  pop71 . Data ( "Expression" )  =  po5coml.Text 

171  pop71 . Data ( "Units" )  =  po5com2.Text 

172  Dim  pop35  As  Module 

173  Dim  pop35i  As  Long 

174  pop35i  =  m. Modules . Find (smFindTag,  "pop35") 

175  Set  pop35  =  m. Modules (pop35i) 

176  pop35 . Data ( "Expression" )  =  po5com3.Text 

177  pop35 . Data ( "Units" )  =  po5com4.Text 

178  Dim  pop77  As  Module 

179  Dim  pop77i  As  Long 

180  pop77i  =  m. Modules . Find (smFindTag,  "pop77") 

181  Set  pop77  =  m. Modules (pop77i) 

182  pop77 . Data ( "Expression" )  =  po5com3.Text 

183  pop77 . Data ( "Units" )  =  po5com4.Text 

184  Dim  pop36  As  Module 

185  Dim  pop36i  As  Long 

186  pop36i  =  m. Modules . Find (smFindTag,  "pop36") 

187  Set  pop36  =  m. Modules (pop36i) 

188  pop36 . Data ( "Expression" )  =  po5com5.Text 

189  pop36 . Data ( "Units" )  =  po5com6.Text 

190  Dim  pop37  As  Module 

191  Dim  pop37i  As  Long 

192  pop37i  =  m. Modules . Find (smFindTag,  "pop37") 

193  Set  pop37  =  m. Modules (pop37i) 

194  pop37 . Data ( "Expression" )  =  po5com7.Text 
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195 

pop37 . Data ( "Units" )  =  po5com8.Text 

196 

197 

198 

199 

200 
201 

Dim  pop38  As  Module 

Dim  pop38i  As  Long 

pop38i  =  m. Modules . Find (smFindTag,  "pop38") 

Set  pop38  =  m. Modules (pop38i) 

pop38 . Data ( "Expression" )  =  po5com9.Text 

pop38 . Data ( "Units" )  =  po5coml0 . Text 

202 

ini tial 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 

Dim  pov6  As  Module 

Dim  pov6i  As  Long 

pov6i  =  m. Modules . Find (smFindTag,  "pov6") 

Set  pov6  =  m. Modules (pov6i) 

If  po5opt2 . value  =  True  Then 

pov6 . Data ("Initial  Value")  =  "0" 

Elself  po5opt3 . value  =  True  Then 
pov6 . Data (" Initial  Value")  =  "1" 

Else 

pov6 . Data (" Initial  Value")  =  "2" 

End  If 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

Dim  pov7  As  Module 

Dim  pov7i  As  Long 

pov7i  =  m. Modules . Find (smFindTag,  "pov7") 

Set  pov7  =  m. Modules (pov7i) 

If  po5opt6 .value  =  True  Then 

pov7 . Data ( "Initial  Value")  =  "0" 

Elself  po5opt7 . value  =  True  Then 
pov7 . Data (" Initial  Value")  =  "1" 

Else 

pov7 . Data (" Initial  Value")  =  "2" 

End  If 

225 

226 

Me . Hide 

Hierarchy. Show 

227 

End  Sub 

228 

Private  Sub  Labelll  Click () 

229 

End  Sub 

230 

Private  Sub  Labell2  Click () 

231 

End  Sub 

232 

Private  Sub  OptionButtonl  Click () 

233 

End  Sub 

234 

Private  Sub  OptionButton2  Click () 

235 

End  Sub 

236 

Private  Sub  OptionButton4  Click () 

237 

End  Sub 

238 

Private  Sub  OptionButton6  Click () 

239 

End  Sub 

240 

241 

Private  Sub  po5optl  Click () 
po5frml .Visible  =  True 

242 

End  Sub 
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243 

Private  Sub  po5opt2  Click () 

244 

po5frml .Visible  =  False 

245 

End  Sub 

246 

Private  Sub  po5opt5  Click () 

247 

po5frm2 .Visible  =  True 

248 

End  Sub 

249 

Private  Sub  po5opt6  Click () 

250 

po5frm2 .Visible  =  False 

251 

End  Sub 

252 

Private  Sub  ToggleButtonl  Click () 

253 

End  Sub 

254 

Private  Sub  ToggleButton4  Click () 

255 

End  Sub 

256 

Private  Sub  UserForm  Click () 

257 

End  Sub 

258 

Private  Sub  UserForm  Initialize () 

259 

Dim  m  As  Model 

260 

Set  m  =  ThisDocument .Model 

261 

'Code  below  populates  large  combo  . 

boxes  for  OT-03, 

OT-06 

262 

Dim  pop34  As  Module 

263 

Dim  pop34i  As  Long 

264 

Dim  pop34v  As  String 

265 

pop34i  =  m. Modules . Find (smFindTag, 

"pop34 

266 

Set  pop34  =  m. Modules (pop34i) 

267 

pop34v  =  pop34 . Data ( "Expression" ) 

268 

po5offhyper . po5coml . value  =  pop34v 

269 

po5of fhyper . po5coml . Addltem  "TRIA 

(  756, 

840,  1176 

)",  0 

270 

po5of fhyper . po5coml .Addltem  "TRIA 

(  Min, 

Mode,  Max 

)",  1 

271 

po5of fhyper . po5coml .Addltem  "NORM 

(  Mean, 

StdDev  )  '' 

',  2 

272 

po5of fhyper . po5coml .Addltem  "EXPO 

(  Mean 

)",  3 

273 

po5of fhyper . po5coml .Addltem  "UNIF 

(  Min, 

Max  ) " ,  4 

274 

Dim  pop35  As  Module 

275 

Dim  pop35i  As  Long 

276 

Dim  pop35v  As  String 

277 

pop35i  =  m. Modules . Find (smFindTag, 

"pop35 

") 

278 

Set  pop35  =  m. Modules (pop35i) 

279 

pop35v  =  pop35 . Data ( "Expression" ) 

280 

po5of fhyper .po5com3 .value  =  pop35v 

281 

po5of fhyper . po5com3 .Addltem  "TRIA 

(  324, 

360,  504  ) 

",  o 

282 

po5of fhyper . po5com3 .Addltem  "TRIA 

(  Min, 

Mode,  Max 

)",  1 

283 

po5of fhyper . po5com3 .Addltem  "NORM 

(  Mean, 

StdDev  ) r 

',  2 

284 

po5of fhyper . po5com3 .Addltem  "EXPO 

(  Mean 

)",  3 

285 

po5of fhyper . po5com3 .Addltem  "UNIF 

(  Min, 

Max  ) " ,  4 

286 

Dim  pop36  As  Module 

287 

Dim  pop36i  As  Long 

288 

Dim  pop36v  As  String 

289 

pop36i  =  m. Modules . Find (smFindTag, 

"pop36 

") 

290 

Set  pop36  =  m. Modules (pop36i) 

291 

pop36v  =  pop36 . Data ( "Expression" ) 

292 

po5of fhyper .po5com5 .value  =  pop36v 

293 

po5of fhyper . po5com5 .Addltem  "TRIA 

(  108, 

120,  168  ) 

",  o 
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294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 


po5of fhyper . po5com5 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po5of fhyper . po5com5 . Addltem  "NORM  (  Mean,  StdDev  )",  2 
po5of fhyper . po5com5 .Addltem  "EXPO  (  Mean  )",  3 
po5of fhyper . po5com5 .Addltem  "UNIF  (  Min,  Max  )",  4 


Dim  pop37  As  Module 
Dim  pop37i  As  Long 
Dim  pop37v  As  String 

pop37i  =  m. Modules . Find (smFindTag,  "pop37") 
Set  pop37  =  m. Modules (pop37i) 
pop37v  =  pop37 . Data ( "Expression" ) 


po5of fhyper . po5com7 . value  =  pop37v 

po5of fhyper . po5com7 .Addltem  "TRIA  (  9,  10,  14  )",  0 
po5of fhyper . po5com7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po5of fhyper . po5com7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po5of fhyper . po5com7 .Addltem  "EXPO  (  Mean  )",  3 
po5of fhyper . po5com7 .Addltem  "UNIF  (  Min,  Max  )",  4 


Dim  pop38  As  Module 
Dim  pop38i  As  Long 
Dim  pop38v  As  String 

pop38i  =  m. Modules . Find (smFindTag,  "pop38") 
Set  pop38  =  m. Modules (pop38i) 
pop38v  =  pop38 . Data ( "Expression" ) 


po5of fhyper ,po5com9 .value  =  pop38v 

po5of fhyper . po5com9 .Addltem  "TRIA  (  27,  30,  42  )",  0 
po5of fhyper . po5com9 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po5of fhyper . po5com9 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po5of fhyper . po5com9 .Addltem  "EXPO  (  Mean  )",  3 
po5of fhyper . po5com9 .Addltem  "UNIF  (  Min,  Max  )",  4 

'Code  below  populates  small  combo  boxes  for  OT-03,  OT-06  and  OT-07  thru  OT-09 
Dim  pop34u  As  Module 
Dim  pop34ui  As  Long 
Dim  pop34uv  As  String 

pop34ui  =  m. Modules . Find (smFindTag,  "pop34") 

Set  pop34u  =  m. Modules (pop34ui) 
pop34uv  =  pop34u . Data ( "Units" ) 


po5of fhyper . po5com2 .value  =  pop34uv 
po5of fhyper . po5com2 .Addltem  "Seconds",  0 
po5of fhyper . po5com2 .Addltem  "Minutes",  1 
po5of fhyper . po5com2 .Addltem  "Hours",  2 
po5of fhyper . po5com2 .Addltem  "Days",  3 


Dim  pop35u  As  Module 
Dim  pop35ui  As  Long 
Dim  pop35uv  As  String 

pop35ui  =  m. Modules . Find (smFindTag,  "pop35") 
Set  pop35u  =  m. Modules (pop35ui) 
pop35uv  =  pop35u . Data ( "Units" ) 

po5of fhyper . po5com4 . value  =  pop35uv 
po5of fhyper . po5com4 .Addltem  "Seconds",  0 
po5of fhyper . po5com4 .Addltem  "Minutes",  1 
po5of fhyper . po5com4 .Addltem  "Hours",  2 
po5of fhyper . po5com4 .Addltem  "Days",  3 


Dim  pop36u  As  Module 
Dim  pop36ui  As  Long 
Dim  pop36uv  As  String 

pop36ui  =  m. Modules . Find (smFindTag,  "pop36") 
Set  pop36u  =  m. Modules (pop36ui) 
pop36uv  =  pop36u . Data ( "Units" ) 

po5of fhyper ,po5com6 .value  =  pop36uv 
po5of fhyper . po5com6 .Addltem  "Seconds",  0 
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353 

po5of fhyper . po5com6 .Addltem  ' 

'Minutes" 

,  1 

354 

po5of fhyper . po5com6 .Addltem  ' 

'Hours" , 

2 

355 

po5of fhyper . po5com6 .Addltem  ' 

'Days",  3 

356 

Dim  pop37u  As  Module 

357 

Dim  pop37ui  As  Long 

358 

Dim  pop37uv  As  String 

359 

pop37ui  =  m. Modules . Find (smFindTag,  " 

pop37 

360 

Set  pop37u  =  m. Modules (pop37ui) 

361 

pop37uv  =  pop37u . Data ( "Units' 

') 

362 

po5offhyper.po5com8 .value  =  pop37uv 

363 

po5of fhyper . po5com8 .Addltem  ' 

'Seconds" 

,  0 

364 

po5of fhyper . po5com8 .Addltem  ' 

'Minutes" 

,  1 

365 

po5of fhyper . po5com8 .Addltem  ' 

'Hours" , 

2 

366 

po5of fhyper . po5com8 .Addltem  ' 

'Days",  3 

367 

Dim  pop38u  As  Module 

368 

Dim  pop38ui  As  Long 

369 

Dim  pop38uv  As  String 

370 

pop38ui  =  m. Modules . Find (smFindTag,  " 

pop38 

371 

Set  pop38u  =  m. Modules (pop38ui) 

372 

pop38uv  =  pop38u . Data ( "Units1 

') 

373 

po5of fhyper .po5coml0 .value  = 

pop38uv 

374 

po5of fhyper . po5coml0 . Addltem 

"Seconds 

",  0 

375 

po5of fhyper . po5coml0 . Addltem 

"Minutes 

",  1 

376 

po5of fhyper . po5coml0 .Addltem 

"Hours" , 

2 

377 

po5of fhyper . po5coml0 .Addltem 

"Days" , 

3 

378 

End  Sub 

Project/po6erect 


1  Private  Sub  CommandButton6_Click ( ) 

2  Me. Hide 

3  po5of fhyper . Show 

4  End  Sub 

5  Private  Sub  CommandButton7_Click ( ) 

6  Hierarchy . done08 .Visible  =  True 

7  'code  below  checks  if  any  option  button  sets  were  not  clicked,  and  if  so, 
forces  the  user  to  make  a  decision 

8  Dim  msgResult  As  Integer 

If  (po6frm2 .Visible  =  True  And  po6optl . value  =  False  And  po6opt2 . value  =  False) 

Then 

10  msgResult  =  MsgBox("You  must  make  an  erecting  mechanism  choice.  Click  Yes  if 
the  erecting  mechanism  is  part  of  the  vehicle  transporter.  Click  no  if  the  erecting 
mechanism  must  be  attached  at  the  pad.",  vbYesNo) 

11  If  msgResult  =  vbYes  Then 

12  po6optl .value  =  True 

13  Else 

14  po6opt2 . value  =  True 

15  End  If 

16  End  If 

17  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

18  Dim  m  As  Model 

19  Set  m  =  ThisDocument .Model 

20  Dim  pop39  As  Module 

21  Dim  pop39i  As  Long 

22  pop39i  =  m. Modules . Find (smFindTag,  "pop39" ) 

23  Set  pop39  =  m. Modules (pop39i) 

24  pop39 . Data ( "Expression" )  =  po6coml.Text 

25  pop39 . Data ( "Units" )  =  po6com2.Text 
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26  Dim  pop40  As  Module 

27  Dim  pop40i  As  Long 

28  pop40i  =  m. Modules . Find (smFindTag,  "pop40") 

29  Set  pop40  =  m. Modules (pop40i) 

30  pop40 . Data ( "Expression" )  =  po6com3.Text 

31  pop40 . Data ( "Units" )  =  po6com4.Text 

32  Dim  pop41  As  Module 

33  Dim  pop41i  As  Long 

34  pop41i  =  m. Modules . Find (smFindTag,  "pop41") 

35  Set  pop41  =  m. Modules (pop41i) 

36  pop41 . Data ( "Expression" )  =  po6com5.Text 

37  pop41 . Data ( "Units" )  =  po6com6.Text 

38  Dim  pop42  As  Module 

39  Dim  pop42i  As  Long 

40  pop42i  =  m. Modules . Find (smFindTag,  "pop42") 

41  Set  pop42  =  m. Modules (pop42i) 

42  pop42 . Data ( "Expression" )  =  po6com7.Text 

43  pop42 . Data ( "Units" )  =  po6com8.Text 

44  Dim  pop43  As  Module 

45  Dim  pop43i  As  Long 

46  pop43i  =  m. Modules . Find (smFindTag,  "pop43") 

47  Set  pop43  =  m. Modules (pop43i) 

48  pop43 . Data ( "Expression" )  =  po6com9.Text 

49  pop43 . Data ( "Units" )  =  po6coml0 . Text 

50  Dim  pop44  As  Module 

51  Dim  pop44i  As  Long 

52  pop44i  =  m. Modules . Find (smFindTag,  "pop44") 

53  Set  pop44  =  m. Modules (pop44i) 

54  pop44 . Data ( "Expression" )  =  po6comll . Text 

55  pop44 . Data ( "Units" )  =  po6coml2 . Text 

56  Dim  pop45  As  Module 

57  Dim  pop45i  As  Long 

58  pop45i  =  m. Modules . Find (smFindTag,  "pop45") 

59  Set  pop45  =  m. Modules (pop45i) 

60  pop45 . Data ( "Expression" )  =  po6coml3 . Text 

61  pop45 . Data ( "Units" )  =  po6coml4 . Text 

62  Dim  pop46  As  Module 

63  Dim  pop46i  As  Long 

64  pop46i  =  m. Modules . Find (smFindTag,  "pop46") 

65  Set  pop46  =  m. Modules (pop46i) 

66  pop4 6 . Data ( "Expression" )  =  po6coml5 . Text 

67  pop46 . Data ( "Units" )  =  po6coml 6 . Text 

68  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

69  Dim  pov8  As  Module 

70  Dim  pov8i  As  Long 

71  pov8i  =  m. Modules . Find (smFindTag,  "pov8") 

72  Set  pov8  =  m. Modules (pov8i) 

73  If  po6optl . value  =  True  Then 

74  pov8 . Data (" Initial  Value")  =  "0" 

75  Else 

76  pov8 . Data (" Initial  Value")  =  "1" 

77  End  If 

78  'code  below  hides  current  form  and  shows  the  next  form  in  the  sequence 

79  Me. Hide 

80  po7umbilical . Show 

81  End  Sub 

82  Private  Sub  CommandButton9_Click ( ) 
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83 


Hierarchy . done08 .Visible  =  True 


84  'code  below  checks  if  any  option  button  sets  were  not  clicked ,  and  if  so, 
forces  the  user  to  make  a  decision 

85  Dim  msgResult  As  Integer 

86  If  (po6frm2 .Visible  =  True  And  po6optl . value  =  False  And  po6opt2 . value  =  False) 
Then 

87  msgResult  =  MsgBox("You  must  make  an  erecting  mechanism  choice.  Click  Yes  if 
the  erecting  mechanism  is  part  of  the  vehicle  transporter.  Click  no  if  the  erecting 
mechanism  must  be  attached  at  the  pad.",  vbYesNo) 

88  If  msgResult  =  vbYes  Then 

89  po6optl .value  =  True 

90  Else 

91  po6opt2 . value  =  True 

92  End  If 

93  End  If 

94  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

95  Dim  m  As  Model 

96  Set  m  =  ThisDocument .Model 

97  Dim  pop39  As  Module 

98  Dim  pop39i  As  Long 

99  pop39i  =  m. Modules . Find (smFindTag,  "pop 3 9" ) 

100  Set  pop39  =  m. Modules (pop39i) 

101  pop39 . Data ( "Expression" )  =  po6coml.Text 

102  pop39 . Data ( "Units" )  =  po6com2.Text 

103  Dim  pop40  As  Module 

104  Dim  pop40i  As  Long 

105  pop40i  =  m. Modules . Find (smFindTag,  "pop40") 

106  Set  pop40  =  m. Modules (pop40i) 

107  pop40 . Data ( "Expression" )  =  po6com3.Text 

108  pop40 . Data ( "Units" )  =  po6com4.Text 

109  Dim  pop41  As  Module 

110  Dim  pop41i  As  Long 

111  pop41i  =  m. Modules . Find (smFindTag,  "pop41") 

112  Set  pop41  =  m. Modules (pop41i) 

113  pop41 . Data ( "Expression" )  =  po6com5.Text 

114  pop41 . Data ( "Units" )  =  po6com6.Text 

115  Dim  pop42  As  Module 

116  Dim  pop42i  As  Long 

117  pop42i  =  m. Modules . Find (smFindTag,  "pop42") 

118  Set  pop42  =  m. Modules (pop42i) 

119  pop42 . Data ( "Expression" )  =  po6com7.Text 

120  pop42 . Data ( "Units" )  =  po6com8.Text 

121  Dim  pop43  As  Module 

122  Dim  pop43i  As  Long 

123  pop43i  =  m. Modules . Find (smFindTag,  "pop43") 

124  Set  pop43  =  m. Modules (pop43i) 

125  pop43 . Data ( "Expression" )  =  po6com9.Text 

126  pop43 . Data ( "Units" )  =  po6coml0 . Text 

127  Dim  pop44  As  Module 

128  Dim  pop44i  As  Long 

129  pop44i  =  m. Modules . Find (smFindTag,  "pop44") 

130  Set  pop44  =  m. Modules (pop44i) 

131  pop44 . Data ( "Expression" )  =  po6comll . Text 

132  pop44 . Data ( "Units" )  =  po6coml2 . Text 

133  Dim  pop45  As  Module 

134  Dim  pop45i  As  Long 

135  pop45i  =  m. Modules . Find (smFindTag,  "pop45") 

136  Set  pop45  =  m. Modules (pop45i) 

137  pop45 . Data ( "Expression" )  =  po6coml3 . Text 
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138 

pop45 . Data ( "Units" )  =  po6coml4 . Text 

139 

140 

141 

142 

143 

144 

Dim  pop46  As  Module 

Dim  pop46i  As  Long 

pop46i  =  m. Modules . Find (smFindTag,  "pop46" ) 

Set  pop46  =  m. Modules (pop46i) 

pop4 6 . Data ( "Expression" )  =  po6coml5 . Text 

pop46 . Data ( "Units" )  =  po6coml6 . Text 

145 

ini tial 

146 

147 

148 

149 

150 

151 

152 

153 

154 

'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
values  for  the  variables  that  control  the  corresponding  decision  modules 

Dim  pov8  As  Module 

Dim  pov8i  As  Long 

pov8i  =  m. Modules . Find (smFindTag,  "pov8") 

Set  pov8  =  m. Modules (pov8i) 

If  po6optl . value  =  True  Then 

pov8 . Data ("Initial  Value")  =  "0" 

Else 

pov8 . Data (" Initial  Value")  =  "1" 

End  If 

155 

156 

Me . Hide 

Hierarchy . Show 

157 

End  Sub 

158 

Private  Sub  Labell  Click () 

159 

End  Sub 

160 

Private  Sub  Labelll  Click () 

161 

End  Sub 

162 

Private  Sub  Labell2  Click () 

163 

End  Sub 

164 

Private  Sub  OptionButtonl  Click () 

165 

End  Sub 

166 

Private  Sub  OptionButtonlO  Click () 

167 

End  Sub 

168 

Private  Sub  OptionButton2  Click () 

169 

End  Sub 

170 

Private  Sub  OptionButton4  Click () 

171 

End  Sub 

172 

Private  Sub  OptionButton6  Click () 

173 

End  Sub 

174 

175 

176 

177 

Private  Sub  po6optl  Click () 

Label5 .Visible  =  False 
po6com3 .Visible  =  False 
po6com4 .Visible  =  False 

178 

End  Sub 

179 

180 

181 

182 

Private  Sub  po6opt2  Click () 

Label5 .Visible  =  True 
po6com3 .Visible  =  True 
po6com4 .Visible  =  True 
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183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 


End  Sub 


Private  Sub  ToggleButtonl_Click ( ) 
End  Sub 

Private  Sub  UserForm_Click ( ) 

End  Sub 

Private  Sub  UserForm_Initialize ( ) 
Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


'Code  below  populates  large  combo  boxes  for  IL-01  thru  IL-11 
Dim  pop39  As  Module 
Dim  pop39i  As  Long 
Dim  pop39v  As  String 

pop39i  =  m. Modules . Find (smFindTag,  "pop39") 

Set  pop39  =  m. Modules (pop39i) 
pop39v  =  pop39 . Data ( "Expression" ) 


po6erect.po6coml .value  = 
po6erect .po6coml .Addltem 
po6erect .po6coml .Addltem 
po6erect .po6coml .Addltem 
po6erect .po6coml .Addltem 
po6erect .po6coml .Addltem 


pop39v 

"TRIA  ( 

54, 

O'! 

o 

CO 

4^ 

o 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

1 


Dim  pop40  As  Module 
Dim  pop40i  As  Long 
Dim  pop40v  As  String 

pop40i  =  m . Modules . Find ( smFindTag,  "pop40") 
Set  pop40  =  m. Modules (pop40i) 
pop40v  =  pop40 . Data ( "Expression" ) 

po6erect .po6com3 .value  =  pop40v 


po6erect .po6com3 .Addltem 

"TRIA 

(  27, 

30,  42  )", 

po6erect .po6com3 .Addltem 

"TRIA 

(  Min, 

Mode,  Max 

po6erect .po6com3 .Addltem 

"NORM 

(  Mean 

,  StdDev  ) 

po6erect .po6com3 .Addltem 

"EXPO 

(  Mean 

)",  3 

po6erect .po6com3 .Addltem 

"UNIF 

(  Min, 

Max  ) " ,  4 

Dim  pop41  As  Module 
Dim  pop41i  As  Long 
Dim  pop41v  As  String 

pop41i  =  m. Modules . Find (smFindTag,  "pop41") 
Set  pop41  =  m. Modules (pop41i) 
pop41v  =  pop41 . Data ( "Expression" ) 


po6erect .po6com5 .value  =  pop41v 


po6erect .po6com5 .Addltem 

"TRIA 

(  27, 

30,  42  )", 

po6erect .po6com5 .Addltem 

"TRIA 

(  Min, 

Mode,  Max 

po6erect .po6com5 .Addltem 

"NORM 

(  Mean 

,  StdDev  ) 

po6erect .po6com5 .Addltem 

"EXPO 

(  Mean 

>",  3 

po6erect .po6com5 .Addltem 

"UNIF 

(  Min, 

Max  ) " ,  4 

Dim  pop42  As  Module 
Dim  pop42i  As  Long 
Dim  pop42v  As  String 

pop42i  =  m . Modules . Find ( smFindTag,  "pop42") 
Set  pop42  =  m. Modules (pop42i) 
pop42v  =  pop42 . Data ( "Expression" ) 


po6erect .po6com7 . value  =  pop42v 

po6erect .po6com7 . Addltem  "TRIA  (  27,  30,  42  )",  0 
po6erect .po6com7 . Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po6erect .po6com7 . Addltem  "NORM  (  Mean,  StdDev  )",  2 
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238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 


po6erect . po6com7 . Addltem  "EXPO  (  Mean  )",  3 
po6erect . po6com7 . Addltem  "UNIF  (  Min,  Max  )",  4 


Dim  pop43  As  Module 
Dim  pop43i  As  Long 
Dim  pop43v  As  String 

pop43i  =  m. Modules . Find (smFindTag,  "pop43") 
Set  pop43  =  m. Modules (pop43i) 
pop43v  =  pop43 . Data ( "Expression" ) 


po6erect .po6com9 
po6erect .po6com9 
po6erect .po6com9 
po6erect .po6com9 
po6erect .po6com9 
po6erect .po6com9 


value  =  pop43v 
Addltem  "TRIA  ( 
Addltem  "TRIA  ( 
Addltem  "NORM  ( 
Addltem  "EXPO  ( 
Addltem  "UNIF  ( 


81,  90,  126  )",  0 
Min,  Mode,  Max  )", 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


1 


Dim  pop44  As  Module 
Dim  pop44i  As  Long 
Dim  pop44v  As  String 

pop44i  =  m. Modules . Find (smFindTag,  "pop44") 
Set  pop44  =  m. Modules (pop44i) 
pop44v  =  pop44 . Data ( "Expression" ) 


po6erect.po6comll .value  = 
po6erect.po6comll .Addltem 
po6erect.po6comll .Addltem 
po6erect.po6comll .Addltem 
po6erect.po6comll .Addltem 
po6erect.po6comll .Addltem 


pop44v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  )",  1 
"NORM  (  Mean,  StdDev  )",  2 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


Dim  pop45  As  Module 
Dim  pop45i  As  Long 
Dim  pop45v  As  String 

pop45i  =  m. Modules . Find (smFindTag,  "pop45") 
Set  pop45  =  m. Modules (pop45i) 
pop45v  =  pop45 . Data ( "Expression" ) 


po6erect .po6coml3 . value  = 
po6erect .po6coml3 .Addltem 
po6erect .po6coml3 .Addltem 
po6erect ,po6coml3 .Addltem 
po6erect ,po6coml3 .Addltem 
po6erect ,po6coml3 .Addltem 


pop45v 

"TRIA  (  27,  30,  42  )",  0 
"TRIA  (  Min,  Mode,  Max  )",  1 
"NORM  (  Mean,  StdDev  )",  2 
"EXPO  (  Mean  )",  3 
"UNIF  (  Min,  Max  )",  4 


Dim  pop46  As  Module 
Dim  pop46i  As  Long 
Dim  pop46v  As  String 

pop46i  =  m. Modules . Find (smFindTag,  "pop46") 
Set  pop46  =  m. Modules (pop46i) 
pop46v  =  pop46 . Data ( "Expression" ) 


po6erect .po6coml5 .value  =  pop46v 
po6erect . po6coml5 .Addltem  "TRIA  ( 
po6erect . po6coml5 .Addltem  "TRIA  ( 
po6erect . po6coml5 .Addltem  "NORM  ( 
po6erect . po6coml5 .Addltem  "EXPO  ( 
po6erect . po6com!5 . Addltem  "UNIF  ( 


27,  30,  42  )",  0 
Min,  Mode,  Max  )",  1 
Mean,  StdDev  )",  2 
Mean  ) " ,  3 
Min,  Max  )",  4 


'Code  below  populates  small  combo  boxes  for  IL-01  thru  IL-11 
Dim  pop39u  As  Module 
Dim  pop39ui  As  Long 
Dim  pop39uv  As  String 

pop39ui  =  m. Modules . Find ( smFindTag,  "pop39") 

Set  pop39u  =  m. Modules (pop39ui) 
pop39uv  =  pop39u . Data ( "Units" ) 


po6erect.po6com2 .value  =  pop39uv 
po6erect.po6com2 .Addltem  "Seconds",  0 
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297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 


po6erect . po6com2 . Addltem  "Minutes",  1 
po6erect . po6com2 . Addltem  "Hours",  2 
po6erect.po6com2 .Addltem  "Days",  3 

Dim  pop40u  As  Module 
Dim  pop40ui  As  Long 
Dim  pop40uv  As  String 

pop40ui  =  m. Modules . Find (smFindTag,  "pop40") 
Set  pop40u  =  m. Modules (pop40ui) 
pop40uv  =  pop40u . Data ( "Units" ) 

po6erect.po6com4 .value  =  pop40uv 
po6erect.po6com4 .Addltem  "Seconds",  0 
po6erect . po6com4 .Addltem  "Minutes",  1 
po6erect . po6com4 .Addltem  "Hours",  2 
po6erect.po6com4 .Addltem  "Days",  3 

Dim  pop41u  As  Module 
Dim  pop41ui  As  Long 
Dim  pop41uv  As  String 

pop41ui  =  m. Modules . Find ( smFindTag,  "pop41") 
Set  pop41u  =  m. Modules (pop41ui) 
pop41uv  =  pop41u . Data ( "Units" ) 

po6erect ,po6com6 .value  =  pop41uv 
po6erect ,po6com6 .Addltem  "Seconds",  0 
po6erect . po6com6 . Addltem  "Minutes",  1 
po6erect . po6com6 .Addltem  "Hours",  2 
po6erect .po6com6 .Addltem  "Days",  3 

Dim  pop42u  As  Module 
Dim  pop42ui  As  Long 
Dim  pop42uv  As  String 

pop42ui  =  m. Modules . Find (smFindTag,  "pop42") 
Set  pop42u  =  m. Modules (pop42ui) 
pop42uv  =  pop42u . Data ("Units" ) 

po6erect.po6com8 .value  =  pop42uv 
po6erect.po6com8 .Addltem  "Seconds",  0 
po6erect . po6com8 . Addltem  "Minutes",  1 
po6erect . po6com8 . Addltem  "Hours",  2 
po6erect.po6com8 .Addltem  "Days",  3 

Dim  pop43u  As  Module 
Dim  pop43ui  As  Long 
Dim  pop43uv  As  String 

pop43ui  =  m. Modules . Find (smFindTag,  "pop43") 
Set  pop43u  =  m. Modules (pop43ui) 
pop43uv  =  pop43u . Data ( "Units" ) 

po6erect ,po6coml0 .value  =  pop43uv 
po6erect ,po6coml0 .Addltem  "Seconds",  0 
po6erect . po6coml0 .Addltem  "Minutes",  1 
po6erect . po6coml0 .Addltem  "Hours",  2 
po6erect .po6coml0 .Addltem  "Days",  3 

Dim  pop44u  As  Module 
Dim  pop44ui  As  Long 
Dim  pop44uv  As  String 

pop44ui  =  m. Modules . Find (smFindTag,  "pop44") 
Set  pop44u  =  m. Modules (pop44ui) 
pop44uv  =  pop44u . Data ( "Units" ) 

po6erect . po6coml2 . value  =  pop44uv 
po6erect.po6coml2 .Addltem  "Seconds",  0 
po6erect . po6coml2 . Addltem  "Minutes",  1 
po6erect . po6coml2 .Addltem  "Hours",  2 
po6erect . po6coml2 .Addltem  "Days",  3 
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355 

Dim  pop45u  As  Module 

356 

Dim  pop45ui  As  Long 

357 

Dim  pop45uv  As  String 

358 

pop45ui  =  m. Modules . Find (smFindTag,  ' 

'pop45 

359 

Set  pop45u  =  m. Modules (pop45ui) 

360 

pop45uv  =  pop45u . Data ( "Units" ) 

361 

po6erect .po6coml4 .value  = 

pop45uv 

362 

po6erect . po6coml4 . Addltem 

"Seconds" , 

0 

363 

po6erect . po6coml4 .Addltem 

"Minutes" , 

1 

364 

po6erect . po6coml4 .Addltem 

"Hours",  2 

365 

po6erect . po6coml4 .Addltem 

"Days",  3 

366 

Dim  pop46u  As  Module 

367 

Dim  pop46ui  As  Long 

368 

Dim  pop46uv  As  String 

369 

pop46ui  =  m. Modules . Find (smFindTag,  ' 

'pop4  6 

370 

Set  pop46u  =  m. Modules (pop46ui) 

371 

pop46uv  =  pop46u . Data ( "Units" ) 

372 

po6erect .po6coml6 .value  = 

pop46uv 

373 

po6erect .po6coml6 .Addltem 

"Seconds" , 

0 

374 

po6erect .po6coml6 .Addltem 

"Minutes" , 

1 

375 

po6erect .po6coml6 .Addltem 

"Hours",  2 

376 

po6erect .po6coml6 .Addltem 

"Days",  3 

377 

End  Sub 

Project/po7umbilical 


1  Private  Sub  CommandButton6_Click ( ) 

2  Me. Hide 

3  If  polprelim.polopt3 .value  =  True  Then 

4  po2on.Show 

5  Else 

6  po6erect . Show 

7  End  If 

8  End  Sub 


9  Private  Sub  CommandButton7_Click ( ) 
10  Hierarchy . doneO 9 . Visible  =  True 


11  ' code  below  checks  for  option  button  sets  that  were  not  clicked ,  and  if  so, 
forces  the  user  to  make  a  decision 

12  Dim  msgResult  As  Integer 

13  If  (po7optl . value  =  False  And  po7opt2 . value  =  False  And  po7opt3 . value  =  False) 
Then 


14  msgResult  =  MsgBox("You  must  make  an  umbilical  connection  choice.  Click  Yes 
if  both  propellant  and  electrical  connections  need  to  be  made.  Click  No  if  only 
propellant  connections  need  to  be  made.  Click  Cancel  if  umbilical  connections  are 
already  made.",  vbYesNoCancel) 

15  If  msgResult  =  vbYes  Then 

16  po7opt3 .value  =  True 

17  Elself  msgResult  =  vbNo  Then 

18  po7opt2 . value  =  True 

19  Else 

20  po7optl .value  =  True 

21  End  If 

22  End  If 

23  If  (po7opt4 .value  =  False  And  po7opt5 . value  =  False)  Then 

24  msgResult  =  MsgBox("You  must  make  a  RP  decision.  Will  the  vehicle  use  RP?", 


vbYesNo) 

25  If  msgResult  =  vbYes  Then 

26  po7opt4 . value  =  True 

27  Else 

28  po7opt5 .value  =  True 

29  End  If 

30  End  If 
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31  If  (po7opt4 .value  =  True  And  po7opt6 .value  =  False  And  po7opt7 .value  =  False) 
Then 

32  msgResult  =  MsgBox("You  must  make  a  decision  concerning  which  stages  use  RP. 
Click  Yes  if  RP  is  used  in  stage  1  only.  Click  No  if  RP  is  used  in  stage  1  and  stage 

2 . " ,  vbYesNo) 

33  If  msgResult  =  vbYes  Then 

34  po7opt6 .value  =  True 

35  Else 

36  po7opt7 .value  =  True 

37  End  If 

38  End  If 

If  (po7opt4 . value  =  True  And  po7opt7 . value  =  True  And  po7opt8 . value  =  False  And 
po7opt9 .value  =  False)  Then 

40  msgResult  =  MsgBox("You  must  make  a  decision  concerning  parallel  RP  loading 
operations.  Can  stage  1  and  stage  2  be  loaded  with  RP  in  parallel?",  vbYesNo) 

41  If  msgResult  =  vbYes  Then 

42  po7opt8 .value  =  True 

43  Else 

44  po7opt9 .value  =  True 

45  End  If 

46  End  If 

47  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

48  Dim  m  As  Model 

49  Set  m  =  ThisDocument .Model 

50  Dim  pop65  As  Module 

51  Dim  pop65i  As  Long 

52  pop65i  =  m. Modules . Find (smFindTag,  "pop65") 

53  Set  pop65  =  m. Modules (pop65i) 

54  pop65 . Data ( "Expression" )  =  po7coml.Text 

55  pop65 . Data ( "Units" )  =  po7com2.Text 

56  Dim  pop66  As  Module 

57  Dim  pop66i  As  Long 

58  pop66i  =  m. Modules . Find (smFindTag,  "pop66") 

59  Set  pop66  =  m. Modules (pop66i) 

60  pop66 . Data ( "Expression" )  =  po7com3.Text 

61  pop66 . Data ( "Units" )  =  po7com4.Text 

62  Dim  pop67  As  Module 

63  Dim  pop67i  As  Long 

64  pop67i  =  m. Modules . Find (smFindTag,  "pop67") 

65  Set  pop67  =  m. Modules (pop67i) 

66  pop67 . Data ( "Expression" )  =  po7com5.Text 

67  pop67 . Data ( "Units" )  =  po7com6.Text 

68  Dim  pop68  As  Module 

69  Dim  pop68i  As  Long 

70  pop68i  =  m. Modules . Find (smFindTag,  "pop68") 

71  Set  pop68  =  m. Modules (pop68i) 

72  pop68 . Data ( "Expression" )  =  po7com7.Text 

73  pop68 . Data ( "Units" )  =  po7com8.Text 

74  Dim  pop72  As  Module 

75  Dim  pop72i  As  Long 

76  pop72i  =  m. Modules . Find (smFindTag,  "pop72") 

Set  pop72  =  m. Modules (pop72i) 

78  pop72 . Data ( "Expression" )  =  po7com9.Text 

79  pop72 . Data ( "Units" )  =  po7coml0 . Text 

80  Dim  pop73  As  Module 

81  Dim  pop73i  As  Long 

82  pop73i  =  m. Modules . Find (smFindTag,  "pop73") 

83  Set  pop73  =  m. Modules (pop73i) 

84  pop73 . Data ("Expression" )  =  po7com9 . Text 

85  pop73 . Data ("Units" )  =  po7coml0 . Text 
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86  Dim  pop75  As  Module 

87  Dim  pop75i  As  Long 

88  pop75i  =  m. Modules . Find (smFindTag,  "pop75") 

89  Set  pop75  =  m. Modules (pop75i) 

90  pop75 . Data ( "Expression" )  =  po7com9.Text 

91  pop75 . Data ("Units")  =  po7coml0 . Text 

92  Dim  pop74  As  Module 

93  Dim  pop74i  As  Long 

94  pop74i  =  m. Modules . Find (smFindTag,  "pop74") 

95  Set  pop74  =  m. Modules (pop74i) 

96  pop74 . Data ( "Expression" )  =  po7comll . Text 

97  pop74 . Data ( "Units" )  =  po7coml2 . Text 

98  Dim  pop76  As  Module 

99  Dim  pop76i  As  Long 

100  pop76i  =  m. Modules . Find (smFindTag,  "pop76") 

101  Set  pop76  =  m. Modules (pop76i) 

102  pop76 . Data ( "Expression" )  =  po7comll . Text 

103  pop7 6 . Data ( "Units" )  =  po7coml2 . Text 

104  Dim  pop78  As  Module 

105  Dim  pop78i  As  Long 

106  pop78i  =  m. Modules . Find (smFindTag,  "pop78") 

107  Set  pop78  =  m. Modules (pop78i) 

108  pop78 . Data ( "Expression" )  =  po7coml3 . Text 

109  pop78 . Data ( "Units" )  =  po7coml4 . Text 

110  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

111  Dim  pov9  As  Module 

112  Dim  pov9i  As  Long 

113  pov9i  =  m. Modules . Find (smFindTag,  "pov9") 

114  Set  pov9  =  m. Modules (pov9i) 

115  If  po7optl . value  =  True  Then 

116  pov9 . Data ("Initial  Value")  =  "0" 

117  Elself  po7opt2 . value  =  True  Then 

118  pov9 . Data (" Initial  Value")  =  "1" 

119  Else 

120  pov9 . Data (" Initial  Value")  =  "2" 

121  End  If 

122  Dim  povlO  As  Module 

123  Dim  povlOi  As  Long 

124  povlOi  =  m. Modules . Find (smFindTag,  "povlO") 

125  Set  povlO  =  m. Modules (povlOi) 

126  If  po7opt5 . value  =  True  Then 

127  povlO . Data ( "Initial  Value")  =  "0" 

128  Elself  po7opt6 . value  =  True  Then 

129  povlO .Data ("Initial  Value")  =  "1" 

130  Else 

131  povlO . Data ( "Initial  Value")  =  "2" 

132  End  If 

133  Dim  povll  As  Module 

134  Dim  povll i  As  Long 

135  povlli  =  m. Modules . Find (smFindTag,  "povll") 

136  Set  povll  =  m. Modules (povlli) 

137  If  po7opt8 . value  =  True  Then 

138  povll .Data ("Initial  Value")  =  "1" 

139  Else 

140  povll . Data ("Initial  Value")  =  "0" 

141  End  If 

142  'code  below  hides  the  current  form  and  shows  the  next  form  in  the  sequence 

143  Me. Hide 

144  po8propellant . Show 

145  End  Sub 
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146 

147 


Private  Sub  CommandButton9_Click ( ) 
Hierarchy . doneO 9 . Visible  =  True 


148  'code  below  checks  for  option  button  sets  that  were  not  clicked,  and  if  so, 
forces  the  user  to  make  a  decision 

149  Dim  msgResult  As  Integer 

150  If  (po7optl . value  =  False  And  po7opt2 . value  =  False  And  po7opt3 . value  =  False) 
Then 


151  msgResult  =  MsgBox("You  must  make  an  umbilical  connection  choice.  Click  Yes 


if  both  propellant  and  electrical  connections  need  to  be  made.  Click  No  if  only 
propellant  connections  need  to  be  made.  Click  Cancel  if  umbilical  connections  are 
already  made.",  vbYesNoCancel) 

152  If  msgResult  =  vbYes  Then 

153  po7opt3 .value  =  True 

154  Elself  msgResult  =  vbNo  Then 

155  po7opt2 .value  =  True 

156  Else 

157  po7optl .value  =  True 

158  End  If 

159  End  If 

160  If  (po7opt4 .value  =  False  And  po7opt5 .value  =  False)  Then 

161  msgResult  =  MsgBox("You  must  make  a  RP  decision.  Will  the  vehicle  use  RP?", 


vbYesNo) 

162  If  msgResult  =  vbYes  Then 

163  po7opt4 .value  =  True 

164  Else 

165  po7opt5 .value  =  True 

166  End  If 

167  End  If 

168  If  (po7opt4 . value  =  True  And  po7opt6 . value  =  False  And  po7opt7 . value  =  False) 


Then 


169  msgResult  =  MsgBox("You  must  make  a  decision  concerning  which  stages  use  RP. 
Click  Yes  if  RP  is  used  in  stage  1  only.  Click  No  if  RP  is  used  in  stage  1  and  stage 

2 .  ",  vbYesNo) 

170  If  msgResult  =  vbYes  Then 

171  po7opt6 .value  =  True 

172  Else 

173  po7opt7 .value  =  True 

174  End  If 

175  End  If 

176  If  (po7opt4 .value  =  True  And  po7opt7 .value  =  True  And  po7opt8 . value  =  False  And 
po7opt9 .value  =  False)  Then 

111  msgResult  =  MsgBox("You  must  make  a  decision  concerning  parallel  RP  loading 

operations.  Can  stage  1  and  stage  2  be  loaded  with  RP  in  parallel?",  vbYesNo) 

178  If  msgResult  =  vbYes  Then 

179  po7opt8 . value  =  True 

180  Else 

181  po7opt9 . value  =  True 

182  End  If 

183  End  If 


184  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

185  Dim  m  As  Model 

186  Set  m  =  ThisDocument .Model 

187  Dim  pop65  As  Module 

188  Dim  pop65i  As  Long 

189  pop65i  =  m. Modules . Find (smFindTag,  "pop65") 

190  Set  pop65  =  m. Modules (pop65i) 

191  pop65 . Data ( "Expression" )  =  po7coml.Text 

192  pop65 . Data ( "Units" )  =  po7com2.Text 

193  Dim  pop66  As  Module 

194  Dim  pop66i  As  Long 

195  pop66i  =  m. Modules . Find (smFindTag,  "pop66") 

196  Set  pop66  =  m. Modules (pop66i) 

197  pop66 . Data ( "Expression" )  =  po7com3.Text 
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198  pop66 . Data ( "Units" )  =  po7com4 . Text 

199  Dim  pop67  As  Module 

200  Dim  pop67i  As  Long 

201  pop67i  =  m. Modules . Find (smFindTag,  "pop67") 

202  Set  pop67  =  m. Modules (pop67i) 

203  pop67 . Data ( "Expression" )  =  po7com5.Text 

204  pop67 . Data ( "Units" )  =  po7com6.Text 

205  Dim  pop68  As  Module 

206  Dim  pop68i  As  Long 

207  pop68i  =  m. Modules . Find (smFindTag,  "pop68") 

208  Set  pop68  =  m. Modules (pop68i) 

209  pop68 . Data ( "Expression" )  =  po7com7.Text 

210  pop68 . Data ( "Units" )  =  po7com8.Text 

211  Dim  pop72  As  Module 

212  Dim  pop72i  As  Long 

213  pop72i  =  m. Modules . Find (smFindTag,  "pop72") 

214  Set  pop72  =  m. Modules (pop72i) 

215  pop72 . Data ( "Expression" )  =  po7com9.Text 

216  pop72 . Data ( "Units" )  =  po7coml0 . Text 

217  Dim  pop73  As  Module 

218  Dim  pop73i  As  Long 

219  pop73i  =  m. Modules . Find (smFindTag,  "pop73") 

220  Set  pop73  =  m. Modules (pop73i) 

221  pop73 . Data ( "Expression" )  =  po7com9.Text 

222  pop73 . Data ( "Units" )  =  po7coml0 . Text 

223  Dim  pop75  As  Module 

224  Dim  pop75i  As  Long 

225  pop75i  =  m. Modules . Find (smFindTag,  "pop75") 

226  Set  pop75  =  m. Modules (pop75i) 

227  pop75 . Data ( "Expression" )  =  po7com9.Text 

228  pop75 . Data ( "Units" )  =  po7coml0 . Text 

229  Dim  pop74  As  Module 

230  Dim  pop74i  As  Long 

231  pop74i  =  m. Modules . Find (smFindTag,  "pop74") 

232  Set  pop74  =  m. Modules (pop74i) 

233  pop74 . Data ( "Expression" )  =  po7comll . Text 

234  pop74 . Data ( "Units" )  =  po7coml2 . Text 

235  Dim  pop76  As  Module 

236  Dim  pop76i  As  Long 

237  pop76i  =  m. Modules . Find (smFindTag,  "pop76") 

238  Set  pop76  =  m. Modules (pop76i) 

239  pop7 6 . Data ( "Expression" )  =  po7comll . Text 

240  pop7 6 . Data ( "Units" )  =  po7coml2 . Text 

241  Dim  pop78  As  Module 

242  Dim  pop78i  As  Long 

243  pop78i  =  m. Modules . Find (smFindTag,  "pop78") 

244  Set  pop78  =  m. Modules (pop78i) 

245  pop78 . Data ( "Expression" )  =  po7coml3 . Text 

246  pop78 . Data ( "Units" )  =  po7coml4 . Text 

247  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

248  Dim  pov9  As  Module 

249  Dim  pov9i  As  Long 

250  pov9i  =  m. Modules . Find (smFindTag,  "pov9") 

251  Set  pov9  =  m. Modules (pov9i) 

252  If  po7optl . value  =  True  Then 

253  pov9 . Data (" Initial  Value")  =  "0" 

254  Elself  po7opt2 . value  =  True  Then 

255  pov9. Data ("Initial  Value")  =  "1" 

256  Else 
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257  pov9 . Data ("Initial  Value")  = 

258  End  If 

259  Dim  povlO  As  Module 

260  Dim  povlOi  As  Long 

261  povlOi  =  m. Modules . Find (smFindTag, 

262  Set  povlO  =  m. Modules (povlOi) 

263  If  po7opt5 . value  =  True  Then 

264  povlO . Data (" Initial  Value")  =  "0 

265  Elself  po7opt6 .value  =  True  Then 

266  povlO . Data (" Initial  Value")  =  "1 

267  Else 

268  povlO . Data (" Initial  Value")  =  "2 

269  End  If 

270  Dim  povll  As  Module 

271  Dim  povlli  As  Long 

272  povlli  =  m. Modules . Find (smFindTag, 

273  Set  povll  =  m. Modules (povlli) 

274  If  po7opt8 . value  =  True  Then 

275  povll . Data (" Initial  Value")  =  "1 

276  Else 

277  povll . Data ( "Initial  Value")  =  "0 

278  End  If 

279  Me. Hide 

280  Hierarchy . Show 

281  End  Sub 

282  Private  Sub  Labelll_Click ( ) 

283  End  Sub 

284  Private  Sub  Labell2_Click ( ) 

285  End  Sub 

286  Private  Sub  Labell 6_Click ( ) 

287  End  Sub 

288  Private  Sub  OptionButtonl_Click ( ) 

289  End  Sub 

290  Private  Sub  OptionButton2_Click ( ) 

291  End  Sub 

292  Private  Sub  OptionButton4_Click ( ) 

293  End  Sub 

294  Private  Sub  OptionButton6_Click ( ) 

295  End  Sub 

296  Private  Sub  po7optl_Click ( ) 

297  po7frml .Visible  =  False 

298  po7frm2 .Visible  =  False 

299  End  Sub 

300  Private  Sub  po7opt2_Click ( ) 

301  po7frml .Visible  =  True 

302  po7frm2 .Visible  =  False 

303  End  Sub 


"povlO 


"povll 
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304  Private  Sub  po7opt3_Click ( ) 

305  po7frml .Visible  =  True 
po7frm2 .Visible  =  True 

307  End  Sub 

308  Private  Sub  po7opt4_Click ( ) 

po7frm3 .Visible  =  True 

310  po7frm4 .Visible  =  True 

311  po7frm5 .Visible  =  True 

312  po7frm6 .Visible  =  True 

313  End  Sub 

314  Private  Sub  po7opt5_Click ( ) 

315  po7frm3 .Visible  =  False 

316  po7frm4 .Visible  =  False 

317  po7frm5 .Visible  =  False 

318  po7frm6 .Visible  =  False 

319  End  Sub 

320  Private  Sub  po7opt6_Click ( ) 

321  po7frm4 .Visible  =  False 

322  po7frm5 .Visible  =  True 

323  po7frm6 .Visible  =  False 

324  If  po7opt4 .value  =  True  Then 

325  po8propellant . po8frml .Visible  =  False 

326  po8propellant . po8frm2 .Visible  =  True 

327  End  If 

328  End  Sub 

329  Private  Sub  po7opt7_Click ( ) 

po7frm4 .Visible  =  True 

331  po7frm5 .Visible  =  True 

332  po7frm6 .Visible  =  True 

If  po7opt4 .value  =  True  Then 

334  po8propellant . po8frml .Visible  =  False 

335  po8propellant .po8frm2 .Visible  =  False 

336  End  If 


337  End  Sub 

338  Private  Sub  ToggleButtonl_Click ( ) 

339  End  Sub 

340  Private  Sub  UserForm_Click ( ) 

341  End  Sub 


342  Private  Sub  UserForm_Initialize ( ) 

343  Dim  m  As  Model 

344  Set  m  =  ThisDocument .Model 


345  'Code  below  populates  large  combo  boxes  for  UM-02  thru  UM-05 

346  Dim  pop65  As  Module 

347  Dim  pop65i  As  Long 

348  Dim  pop65v  As  String 

349  pop65i  =  m. Modules . Find (smFindTag,  "pop65") 

350  Set  pop65  =  m. Modules (pop65i) 

351  pop65v  =  pop65 . Data ("Expression" ) 


352  po7umbilical . po7coml . value  =  pop65v 

353  po7umbilical . po7coml . Addltem  "TRIA  (  21,  30,  42  )",  0 

354  po7umbilical . po7coml . Addltem  "TRIA  (  Min,  Mode,  Max  ) " ,  1 
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355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 


po7umbilical .po7coml . Addltem  "NORM  (  Mean,  StdDev  )",  2 
po7umbilical .po7coml . Addltem  "EXPO  (  Mean  )",  3 
po7umbilical .po7coml .Addltem  "UNIF  (  Min,  Max  )",  4 


Dim  pop66  As  Module 
Dim  pop66i  As  Long 
Dim  pop66v  As  String 

pop66i  =  m. Modules . Find (smFindTag,  "pop66") 


Set  pop66  =  m. Modules (pop66i) 
pop66v  =  pop66 . Data ( "Express^ 

po7umbilical ,po7com3 .value  = 
po7umbilical . po7  com3 .Addltem 
po7umbilical ,po7com3 .Addltem 
po7umbilical . po7  com3 .Addltem 
po7umbilical . po7com3 .Addltem 
po7umbilical .po7com3 .Addltem 


on" ) 


pop66v 
"TRIA  ( 

4.5, 

5 ,  7  )  " ,  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean, 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop67  As  Module 

Dim  pop67i  As  Long 

Dim  pop67v  As  String 

pop67i  =  m. Modules . Find (smFindTag, 

Set  pop67  =  m. Modules (pop67i) 

pop67v  =  pop67 . Data ( "Expression" ) 


po7umbilical .po7com5 .value  = 
po7umbilical .po7com5 .Addltem 
po7umbilical .po7com5 .Addltem 
po7umbilical . po7  com5 . Addltem 
po7umbilical ,po7com5 .Addltem 
po7umbilical . po7  com5 . Addltem 


pop67" ) 


pop67v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop68  As  Module 
Dim  pop68i  As  Long 
Dim  pop68v  As  String 

pop68i  =  m. Modules . Find (smFindTag,  "pop68") 
Set  pop68  =  m. Modules (pop68i) 
pop68v  =  pop68 . Data ( "Expression" ) 


po7umbilical . po7com7 . value  =  pop68v 

po7umbilical . po7com7 . Addltem  "TRIA  (  27,  30,  42  )",  0 
po7umbilical .po7com7 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
po7umbilical .po7com7 .Addltem  "NORM  (  Mean,  StdDev  )",  2 
po7umbilical .po7com7 .Addltem  "EXPO  (  Mean  )",  3 
po7umbilical .po7com7 .Addltem  "UNIF  (  Min,  Max  )",  4 

'Code  below  populates  small  combo  boxes  for  UM-02  thru  UM-05 
Dim  pop65u  As  Module 
Dim  pop65ui  As  Long 
Dim  pop65uv  As  String 

pop65ui  =  m. Modules . Find (smFindTag,  "pop65") 

Set  pop65u  =  m. Modules (pop65ui) 
pop65uv  =  pop65u . Data ( "Units" ) 

po7umbilical . po7com2 . value  =  pop65uv 
po7umbilical . po7com2 .Addltem  "Seconds",  0 
po7umbilical ,po7com2 .Addltem  "Minutes",  1 
po7umbilical .po7com2 .Addltem  "Hours",  2 
po7umbilical .po7com2 .Addltem  "Days",  3 


Dim  pop66u  As  Module 
Dim  pop66ui  As  Long 
Dim  pop66uv  As  String 

pop66ui  =  m. Modules . Find (smFindTag,  "pop66") 
Set  pop66u  =  m. Modules (pop66ui) 
pop66uv  =  pop66u . Data ( "Units" ) 

po7umbilical .po7com4 .value  =  pop66uv 
po7umbilical .po7com4 .Addltem  "Seconds",  0 
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415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 


po7umbilical .po7com4 . Addltem  "Minutes",  1 
po7umbilical .po7com4 . Addltem  "Hours",  2 
po7umbilical .po7com4 .Addltem  "Days",  3 

Dim  pop67u  As  Module 
Dim  pop67ui  As  Long 
Dim  pop67uv  As  String 

pop67ui  =  m. Modules . Find (smFindTag,  "pop67") 
Set  pop67u  =  m. Modules (pop67ui) 
pop67uv  =  pop67u . Data ( "Units" ) 

po7umbilical ,po7com6 .value  =  pop67uv 
po7umbilical . po7com6 .Addltem  "Seconds",  0 
po7umbilical ,po7com6 .Addltem  "Minutes",  1 
po7umbilical . po7com6 .Addltem  "Hours",  2 
po7umbilical . po7com6 .Addltem  "Days",  3 

Dim  pop68u  As  Module 
Dim  pop68ui  As  Long 
Dim  pop68uv  As  String 

pop68ui  =  m. Modules . Find (smFindTag,  "pop68") 
Set  pop68u  =  m. Modules (pop68ui) 
pop68uv  =  pop68u . Data ( "Units" ) 


po7umbilical .po7com8 .value  =  pop68uv 
po7umbilical .po7com8 .Addltem  "Seconds",  0 
po7umbilical .po7com8 .Addltem  "Minutes",  1 
po7umbilical .po7com8 .Addltem  "Hours",  2 
po7umbilical . po7com8 .Addltem  "Days",  3 

'Code  below  populates  large  combo  boxes  for  OM-09  thru  OM-11 
Dim  pop72  As  Module 
Dim  pop72i  As  Long 
Dim  pop72v  As  String 

pop72i  =  m. Modules . Find (smFindTag,  "pop72") 

Set  pop72  =  m. Modules (pop72i) 
pop72v  =  pop72 . Data ( "Expression" ) 


po7umbilical . po7com9 . value  = 
po7umbilical . po7  com9 . Addltem 
po7umbilical ,po7com9 .Addltem 
po7umbilical .po7com9 .Addltem 
po7umbilical .po7com9 .Addltem 
po7umbilical . po7com9 . Addltem 


pop72v 


TRIA 

(  108 , 

120,  168  )' 

',  0 

TRIA 

(  Min, 

Mode,  Max  ) 

",  1 

NORM 

(  Mean, 

.  StdDev  ) " , 

.  2 

EXPO 

(  Mean 

>",  3 

UNIF 

(  Min, 

Max  ) " ,  4 

Dim  pop74  As  Module 
Dim  pop74i  As  Long 
Dim  pop74v  As  String 

pop74i  =  m. Modules . Find (smFindTag,  "pop74") 
Set  pop74  =  m. Modules (pop74i) 
pop74v  =  pop74 . Data ( "Expression" ) 


po7umbilical .po7comll .value  = 
po7umbilical . po7  coml 1 .Addltem 
po7umbilical ,po7comll .Addltem 
po7umbilical . po7coml 1 .Addltem 
po7umbilical ,po7comll .Addltem 
po7umbilical .po7comll .Addltem 


pop74v 

"TRIA  ( 

54, 

o 

00 

o 

uo 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop78  As  Module 
Dim  pop78i  As  Long 
Dim  pop78v  As  String 

pop78i  =  m. Modules . Find (smFindTag,  "pop78") 

Set  pop78  =  m. Modules (pop78i) 
pop78v  =  pop78 . Data ( "Expression" ) 

po7umbilical .po7coml3 .value  =  pop78v 
po7umbilical .po7coml3 .Addltem  "0",  0 

po7umbilical .po7coml3 .Addltem  "TRIA  (  Min,  Mode,  Max  )",  1 
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473  po7umbilical .po7coml3 . Addltem  "NORM  (  Mean,  StdDev  )",  2 

474  po7umbilical .po7coml3 .Addltem  "EXPO  (  Mean  )",  3 

475  po7umbilical .po7coml3 .Addltem  "UNIF  (  Min,  Max  )",  4 

476  'Code  below  populates  small  combo  boxes  for  UM-09  thru  UM-11 

All  Dim  pop72u  As  Module 

478  Dim  pop72ui  As  Long 

479  Dim  pop72uv  As  String 

480  pop72ui  =  m. Modules . Find (smFindTag,  "pop72") 

481  Set  pop72u  =  m. Modules (pop72ui) 

482  pop72uv  =  pop72u . Data ( "Units" ) 

483  po7umbilical . po7coml0 . value  =  pop72uv 

484  po7umbilical . po7coml0 .Addltem  "Seconds",  0 

485  po7umbilical . po7coml0 .Addltem  "Minutes",  1 

486  po7umbilical . po7coml0 .Addltem  "Hours",  2 

487  po7umbilical .po7coml0 .Addltem  "Days",  3 

488  Dim  pop74u  As  Module 

489  Dim  pop74ui  As  Long 

490  Dim  pop74uv  As  String 

491  pop74ui  =  m. Modules . Find (smFindTag,  "pop74") 

492  Set  pop74u  =  m. Modules (pop74ui) 

493  pop74uv  =  pop74u . Data ( "Units" ) 

494  po7umbilical . po7coml2 . value  =  pop74uv 

495  po7umbilical .po7coml2 .Addltem  "Seconds",  0 

496  po7umbilical .po7coml2 .Addltem  "Minutes",  1 

497  po7umbilical . po7coml2 .Addltem  "Hours",  2 

498  po7umbilical . po7coml2 .Addltem  "Days",  3 

499  Dim  pop78u  As  Module 

500  Dim  pop78ui  As  Long 

501  Dim  pop78uv  As  String 

502  pop78ui  =  m. Modules . Find (smFindTag,  "pop78") 

503  Set  pop78u  =  m. Modules (pop78ui) 

504  pop78uv  =  pop78u . Data ("Units" ) 

505  po7umbilical . po7coml4 . value  =  pop78uv 

506  po7umbilical . po7coml4 .Addltem  "Seconds",  0 

507  po7umbilical . po7coml4 .Addltem  "Minutes",  1 

508  po7umbilical .po7coml4 .Addltem  "Hours",  2 

509  po7umbilical .po7coml4 .Addltem  "Days",  3 

510  End  Sub 

Project/po8propellant 


1  Private  Sub  CommandButton6_Click ( ) 

2  Me. Hide 

3  po7umbilical . Show 

4  End  Sub 

5  Private  Sub  CommandButton7_Click ( ) 

6  Hierarchy . donelO .Visible  =  True 

7  End  Sub 

8  Private  Sub  CommandButton9_Click ( ) 

9  Hierarchy . donelO .Visible  =  True 

10  'code  below  checks  for  option  button  sets  that  were  not  clicked,  and  if  so, 
forces  the  user  to  make  a  decision 

11  Dim  msgResult  As  Integer 

12  If  (po8optl . value  =  False  And  po8opt2 . value  =  False  And  po8opt3 . value  =  False) 
Then 

13  msgResult  =  MsgBox("You  must  make  a  decision  concerning  cryogenic  loading 
operations.  Click  Yes  if  both  stages  and  fuel/oxidizer  can  be  loaded  in  parallel.  Click 
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No  if  fuel  and  oxidizer  cannot  be  loaded  in  parallel  but  stages  can  be  loaded  in 
parallel.  Click  Cancel  if  neither  stages  nor  fuel/oxidizer  can  be  loaded  in  parallel.", 
vbYesNoCancel ) 

14  If  msgResult  =  vbYes  Then 

15  po8opt3 .value  =  True 

16  Elself  msgResult  =  vbNo  Then 

17  po8opt2 . value  =  True 

18  Else 

19  po8optl .value  =  True 

20  End  If 

21  End  If 

22  'code  below  populates  appropriate  arena  modules  with  distributions  and  units 
the  user  put  into  the  combo  boxes 

23  Dim  m  As  Model 

24  Set  m  =  ThisDocument .Model 

25  Dim  pop79  As  Module 

26  Dim  pop79i  As  Long 

27  pop79i  =  m. Modules . Find (smFindTag,  "pop79") 

28  Set  pop79  =  m. Modules (pop79i) 

29  pop7 9 . Data ( "Expression" )  =  po8coml.Text 

30  pop7 9 . Data ( "Units" )  =  po8com2.Text 

31  Dim  pop83  As  Module 

32  Dim  pop83i  As  Long 

33  pop83i  =  m. Modules . Find (smFindTag,  "pop83") 

34  Set  pop83  =  m. Modules (pop83i) 

35  pop83 . Data ( "Expression" )  =  po8coml.Text 

36  pop83 . Data ("Units" )  =  po8com2.Text 

37  Dim  pop87  As  Module 

38  Dim  pop87i  As  Long 

39  pop87i  =  m. Modules . Find (smFindTag,  "pop87") 

40  Set  pop87  =  m. Modules (pop87i) 

41  pop87 . Data ( "Expression" )  =  po8coml.Text 

42  pop87 . Data ( "Units" )  =  po8com2.Text 

43  Dim  pop81  As  Module 

44  Dim  pop81i  As  Long 

45  pop81i  =  m. Modules . Find (smFindTag,  "pop81") 

46  Set  pop81  =  m. Modules (pop81i) 

47  pop81 . Data ( "Expression" )  =  po8com3.Text 

48  pop81 . Data ( "Units" )  =  po8com4.Text 

49  Dim  pop85  As  Module 

50  Dim  pop85i  As  Long 

51  pop85i  =  m. Modules . Find (smFindTag,  "pop85") 

52  Set  pop85  =  m. Modules (pop85i) 

53  pop85 . Data ( "Expression" )  =  po8com3.Text 

54  pop85 . Data ( "Units" )  =  po8com4.Text 

55  Dim  pop88  As  Module 

56  Dim  pop88i  As  Long 

57  pop88i  =  m. Modules . Find (smFindTag,  "pop88") 

58  Set  pop88  =  m. Modules (pop88i) 

59  pop88 . Data ( "Expression" )  =  po8com3.Text 

60  pop88 . Data ( "Units" )  =  po8com4.Text 

61  Dim  pop80  As  Module 

62  Dim  pop80i  As  Long 

63  pop80i  =  m. Modules . Find (smFindTag,  "pop80") 

64  Set  pop80  =  m. Modules (pop80i) 

65  pop80 . Data ( "Expression" )  =  po8com5.Text 

66  pop80 . Data ( "Units" )  =  po8com6.Text 

67  Dim  pop84  As  Module 

68  Dim  pop84i  As  Long 

69  pop84i  =  m. Modules . Find (smFindTag,  "pop84") 
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70  Set  pop84  =  m. Modules (pop84i) 

71  pop84 . Data ( "Expression" )  =  po8com5.Text 

72  pop84 . Data ( "Units" )  =  po8com6.Text 

73  Dim  pop89  As  Module 

74  Dim  pop89i  As  Long 

75  pop89i  =  m. Modules . Find (smFindTag,  "pop89") 

76  Set  pop89  =  m. Modules (pop89i) 

pop8 9. Data ("Expression")  =  po8com5.Text 

78  pop89. Data ("Units")  =  po8com6.Text 

79  Dim  pop82  As  Module 

80  Dim  pop82i  As  Long 

81  pop82i  =  m. Modules . Find (smFindTag,  "pop82") 

82  Set  pop82  =  m. Modules (pop82i) 

83  pop82 . Data ( "Expression" )  =  po8com7.Text 

84  pop82 . Data ( "Units" )  =  po8com8.Text 

85  Dim  pop86  As  Module 

86  Dim  pop86i  As  Long 

87  pop86i  =  m. Modules . Find (smFindTag,  "pop86") 

88  Set  pop86  =  m. Modules (pop86i) 

89  pop8 6 . Data ( "Expression" )  =  po8com7.Text 

90  pop86 . Data ( "Units" )  =  po8com8.Text 

91  Dim  pop90  As  Module 

92  Dim  pop90i  As  Long 

93  pop90i  =  m. Modules . Find (smFindTag,  "pop90") 

94  Set  pop90  =  m. Modules (pop90i) 

95  pop90 . Data ( "Expression" )  =  po8com7.Text 

96  pop90 . Data ( "Units" )  =  po8com8.Text 

97  Dim  pop91  As  Module 

98  Dim  pop91i  As  Long 

99  pop91i  =  m. Modules . Find (smFindTag,  "pop91") 

100  Set  pop91  =  m. Modules (pop91i) 

101  pop91 . Data ( "Expression" )  =  po8com9.Text 

102  pop91 . Data ( "Units" )  =  po8coml0 . Text 

103  'Code  below  takes  user's  option  button  decisions  and  translates  them  into 
initial  values  for  the  variables  that  control  the  corresponding  decision  modules 

104  Dim  povl2  As  Module 

105  Dim  povl2i  As  Long 

106  povl2i  =  m. Modules . Find (smFindTag,  "povl2") 

107  Set  povl2  =  m. Modules (povl2i) 

108  If  po8optl .value  =  True  Then 

109  povl2 . Data (" Initial  Value")  =  "0" 

110  Elself  po8opt2 . value  =  True  Then 

111  povl2 . Data (" Initial  Value")  =  "1" 

112  Else 

113  povl2 . Data (" Initial  Value")  =  "2" 

114  End  If 

115  Me. Hide 

116  Hierarchy . Show 

117  End  Sub 

118  Private  Sub  Labelll_Click ( ) 

119  End  Sub 

120  Private  Sub  Labell2_Click ( ) 

121  End  Sub 

122  Private  Sub  OptionButtonl_Click ( ) 

123  End  Sub 
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124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 


Private 
End  Sub 
Private 
End  Sub 
Private 
End  Sub 
Private 
End  Sub 
Private 
End  Sub 


Sub  OptionButton2_Click ( ) 


Sub  OptionButton4_Click ( ) 


Sub  OptionButton6_Click ( ) 


Sub  ToggleButtonl_Click ( ) 


Sub  UserForm_Click ( ) 


Private  Sub  UserForm_Initialize ( ) 
Dim  m  As  Model 
Set  m  =  ThisDocument .Model 


137  'Code  below  populates  large  combo  boxes  for  PL-02  thru  Pl-06 

138  Dim  pop79  As  Module 

139  Dim  pop79i  As  Long 

140  Dim  pop79v  As  String 

141  pop79i  =  m. Modules . Find (smFindTag,  "pop79") 

142  Set  pop79  =  m. Modules (pop79i) 

143  pop79v  =  pop7 9 . Data ( "Expression" ) 


144 

145 

146 

147 

148 

149 


po8propellant .po8coml .value  = 
po8propellant . po8coml . Addltem 
po8propellant . po8coml .Addltem 
po8propellant . po8coml .Addltem 
po8propellant . po8coml .Addltem 
po8propellant . po8coml .Addltem 


pop7  9v 

"TRIA  ( 

54, 

60,  84  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

>",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

150  Dim  pop81  As  Module 

151  Dim  pop81i  As  Long 

152  Dim  pop81v  As  String 

153  pop81i  =  m. Modules . Find (smFindTag,  "pop81") 

154  Set  pop81  =  m. Modules (pop81i) 

155  pop81v  =  pop81 . Data ( "Expression" ) 


156 

po8propellant .po8com3 .value  = 

pop81v 

157 

po8propellant . po8com3 .Addltem 

"TRIA 

(  27, 

30,  42 

)",  o 

158 

po8propellant . po8com3 .Addltem 

"TRIA 

(  Min, 

Mode, 

Max  ) " , 

159 

po8propellant . po8com3 .Addltem 

"NORM 

(  Mean 

,  StdDev  )",  2 

160 

po8propellant . po8com3 .Addltem 

"EXPO 

(  Mean 

)",  3 

161 

po8propellant . po8com3 .Addltem 

"UNIF 

(  Min, 

Max  )  ' 

',  4 

162 

Dim  pop80  As  Module 

163 

Dim  pop80i  As  Long 

164 

Dim  pop80v  As  String 

165 

pop80i  =  m. Modules . Find (smFindTag,  " 

pop80" 

) 

166 

Set  pop80  =  m. Modules (pop80i) 

167 

pop80v  =  pop80 . Data ( "Expression" ) 

168 

po8propellant .po8com5 .value  = 

pop80v 

169 

po8propellant . po8com5 .Addltem 

"TRIA 

(  54, 

60,  84 

>",  0 

170 

po8propellant . po8com5 .Addltem 

"TRIA 

(  Min, 

Mode, 

Max  ) " , 

171 

po8propellant . po8com5 .Addltem 

"NORM 

(  Mean 

,  StdDev  )",  2 

172 

po8propellant . po8com5 . Addltem 

"EXPO 

(  Mean 

)",  3 

173 

po8propellant . po8com5 .Addltem 

"UNIF 

(  Min, 

Max  )  1 

',  4 

1 


1 


174  Dim  pop82  As  Module 


232 


175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 
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Dim  pop82i  As  Long 
Dim  pop82v  As  String 

pop82i  =  m. Modules . Find (smFindTag,  "pop82") 
Set  pop82  =  m. Modules (pop82i) 
pop82v  =  pop82 . Data ( "Expression" ) 


po8propellant .po8com7 . value  = 
po8propellant .po8com7 . Addltem 
po8propellant .po8com7 .Addltem 
po8propellant .po8com7 .Addltem 
po8propellant .po8com7 .Addltem 
po8propellant .po8com7 .Addltem 


pop82v 

"TRIA  ( 

27, 

30,  42  )",  0 

"TRIA  ( 

Min, 

Mode,  Max  )", 

"NORM  ( 

Mean 

,  StdDev  )",  2 

"EXPO  ( 

Mean 

)",  3 

"UNIF  ( 

Min, 

Max  ) " ,  4 

Dim  pop91  As  Module 
Dim  pop91i  As  Long 
Dim  pop91v  As  String 

pop91i  =  m. Modules . Find (smFindTag,  "pop91") 
Set  pop91  =  m. Modules (pop91i) 
pop91v  =  pop91 . Data ( "Expression" ) 


po8propellant .po8com9 .value  =  pop91v 


po8com9 .Addltem 

"10", 

0 

po8com9 .Addltem 

"TRIA 

(  Min, 

Mode,  Max  ) 

",  1 

po8com9 .Addltem 

"NORM 

(  Mean, 

,  StdDev  ) " , 

2 

po8com9 .Addltem 

"EXPO 

(  Mean 

)",  3 

po8com9 .Addltem 

"UNIF 

(  Min, 

Max  ) " ,  4 

'Code  below  populates  small  combo  boxes  for  PL-02  thru  Pl-06 
Dim  pop79u  As  Module 
Dim  pop79ui  As  Long 
Dim  pop79uv  As  String 

pop79ui  =  m. Modules . Find (smFindTag,  "pop79") 

Set  pop79u  =  m. Modules (pop79ui) 
pop79uv  =  pop79u . Data ( "Units" ) 


po8propellant .po8com2 .value  =  pop79uv 
po8propellant .po8com2 .Addltem  "Seconds",  0 
po8propellant .po8com2 .Addltem  "Minutes",  1 
po8propellant .po8com2 . Addltem  "Hours",  2 
po8propellant .po8com2 .Addltem  "Days",  3 

Dim  pop81u  As  Module 
Dim  pop81ui  As  Long 
Dim  pop81uv  As  String 

pop81ui  =  m. Modules . Find (smFindTag,  "pop81") 
Set  pop81u  =  m. Modules (pop81ui) 
pop81uv  =  pop81u . Data ( "Units" ) 


po8propellant.po8com4 .value  =  pop81uv 
po8propellant .po8com4 .Addltem  "Seconds",  0 
po8propellant .po8com4 .Addltem  "Minutes",  1 
po8propellant .po8com4 .Addltem  "Hours",  2 
po8propellant .po8com4 .Addltem  "Days",  3 

Dim  pop80u  As  Module 
Dim  pop80ui  As  Long 
Dim  pop80uv  As  String 

pop80ui  =  m. Modules . Find (smFindTag,  "pop80") 
Set  pop80u  =  m. Modules (pop80ui) 
pop80uv  =  pop80u . Data ( "Units" ) 


po8propellant .po8com6 .value  =  pop80uv 
po8propellant .po8com6 .Addltem  "Seconds" , 
po8propellant .po8com6 .Addltem  "Minutes" , 
po8propellant .po8com6 .Addltem  "Hours",  2 
po8propellant .po8com6 .Addltem  "Days",  3 


0 

1 


Dim  pop82u  As  Module 
Dim  pop82ui  As  Long 
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237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 
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Dim  pop82uv  As  String 

pop82ui  =  m. Modules . Find (smFindTag,  "pop82") 
Set  pop82u  =  m. Modules (pop82ui) 
pop82uv  =  pop82u . Data ( "Units" ) 

po8propellant .po8com8 .value  =  pop82uv 
po8propellant .po8com8 . Addltem  "Seconds",  0 
po8propellant .po8com8 . Addltem  "Minutes",  1 
po8propellant .po8com8 .Addltem  "Hours",  2 
po8propellant .po8com8 .Addltem  "Days",  3 

Dim  pop91u  As  Module 
Dim  pop91ui  As  Long 
Dim  pop91uv  As  String 

pop91ui  =  m. Modules . Find (smFindTag,  "pop91") 
Set  pop91u  =  m. Modules (pop91ui) 
pop91uv  =  pop91u . Data ("Units" ) 

po8propellant .po8coml0 .value  =  pop91uv 
po8propellant .po8coml0 .Addltem  "Seconds",  0 
po8propellant .po8coml0 . Addltem  "Minutes",  1 
po8propellant .po8coml0 . Addltem  "Hours",  2 
po8propellant .po8coml0 . Addltem  "Days",  3 

End  Sub 
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